{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.TreeView
(
TreeView(..) ,
IsTreeView ,
toTreeView ,
#if defined(ENABLE_OVERLOADING)
ResolveTreeViewMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewAppendColumnMethodInfo ,
#endif
treeViewAppendColumn ,
#if defined(ENABLE_OVERLOADING)
TreeViewCollapseAllMethodInfo ,
#endif
treeViewCollapseAll ,
#if defined(ENABLE_OVERLOADING)
TreeViewCollapseRowMethodInfo ,
#endif
treeViewCollapseRow ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnsAutosizeMethodInfo ,
#endif
treeViewColumnsAutosize ,
#if defined(ENABLE_OVERLOADING)
TreeViewConvertBinWindowToTreeCoordsMethodInfo,
#endif
treeViewConvertBinWindowToTreeCoords ,
#if defined(ENABLE_OVERLOADING)
TreeViewConvertBinWindowToWidgetCoordsMethodInfo,
#endif
treeViewConvertBinWindowToWidgetCoords ,
#if defined(ENABLE_OVERLOADING)
TreeViewConvertTreeToBinWindowCoordsMethodInfo,
#endif
treeViewConvertTreeToBinWindowCoords ,
#if defined(ENABLE_OVERLOADING)
TreeViewConvertTreeToWidgetCoordsMethodInfo,
#endif
treeViewConvertTreeToWidgetCoords ,
#if defined(ENABLE_OVERLOADING)
TreeViewConvertWidgetToBinWindowCoordsMethodInfo,
#endif
treeViewConvertWidgetToBinWindowCoords ,
#if defined(ENABLE_OVERLOADING)
TreeViewConvertWidgetToTreeCoordsMethodInfo,
#endif
treeViewConvertWidgetToTreeCoords ,
#if defined(ENABLE_OVERLOADING)
TreeViewCreateRowDragIconMethodInfo ,
#endif
treeViewCreateRowDragIcon ,
#if defined(ENABLE_OVERLOADING)
TreeViewEnableModelDragDestMethodInfo ,
#endif
treeViewEnableModelDragDest ,
#if defined(ENABLE_OVERLOADING)
TreeViewEnableModelDragSourceMethodInfo ,
#endif
treeViewEnableModelDragSource ,
#if defined(ENABLE_OVERLOADING)
TreeViewExpandAllMethodInfo ,
#endif
treeViewExpandAll ,
#if defined(ENABLE_OVERLOADING)
TreeViewExpandRowMethodInfo ,
#endif
treeViewExpandRow ,
#if defined(ENABLE_OVERLOADING)
TreeViewExpandToPathMethodInfo ,
#endif
treeViewExpandToPath ,
#if defined(ENABLE_OVERLOADING)
TreeViewGetActivateOnSingleClickMethodInfo,
#endif
treeViewGetActivateOnSingleClick ,
#if defined(ENABLE_OVERLOADING)
TreeViewGetBackgroundAreaMethodInfo ,
#endif
treeViewGetBackgroundArea ,
#if defined(ENABLE_OVERLOADING)
TreeViewGetCellAreaMethodInfo ,
#endif
treeViewGetCellArea ,
#if defined(ENABLE_OVERLOADING)
TreeViewGetColumnMethodInfo ,
#endif
treeViewGetColumn ,
#if defined(ENABLE_OVERLOADING)
TreeViewGetColumnsMethodInfo ,
#endif
treeViewGetColumns ,
#if defined(ENABLE_OVERLOADING)
TreeViewGetCursorMethodInfo ,
#endif
treeViewGetCursor ,
#if defined(ENABLE_OVERLOADING)
TreeViewGetDestRowAtPosMethodInfo ,
#endif
treeViewGetDestRowAtPos ,
#if defined(ENABLE_OVERLOADING)
TreeViewGetDragDestRowMethodInfo ,
#endif
treeViewGetDragDestRow ,
#if defined(ENABLE_OVERLOADING)
TreeViewGetEnableSearchMethodInfo ,
#endif
treeViewGetEnableSearch ,
#if defined(ENABLE_OVERLOADING)
TreeViewGetEnableTreeLinesMethodInfo ,
#endif
treeViewGetEnableTreeLines ,
#if defined(ENABLE_OVERLOADING)
TreeViewGetExpanderColumnMethodInfo ,
#endif
treeViewGetExpanderColumn ,
#if defined(ENABLE_OVERLOADING)
TreeViewGetFixedHeightModeMethodInfo ,
#endif
treeViewGetFixedHeightMode ,
#if defined(ENABLE_OVERLOADING)
TreeViewGetGridLinesMethodInfo ,
#endif
treeViewGetGridLines ,
#if defined(ENABLE_OVERLOADING)
TreeViewGetHeadersClickableMethodInfo ,
#endif
treeViewGetHeadersClickable ,
#if defined(ENABLE_OVERLOADING)
TreeViewGetHeadersVisibleMethodInfo ,
#endif
treeViewGetHeadersVisible ,
#if defined(ENABLE_OVERLOADING)
TreeViewGetHoverExpandMethodInfo ,
#endif
treeViewGetHoverExpand ,
#if defined(ENABLE_OVERLOADING)
TreeViewGetHoverSelectionMethodInfo ,
#endif
treeViewGetHoverSelection ,
#if defined(ENABLE_OVERLOADING)
TreeViewGetLevelIndentationMethodInfo ,
#endif
treeViewGetLevelIndentation ,
#if defined(ENABLE_OVERLOADING)
TreeViewGetModelMethodInfo ,
#endif
treeViewGetModel ,
#if defined(ENABLE_OVERLOADING)
TreeViewGetNColumnsMethodInfo ,
#endif
treeViewGetNColumns ,
#if defined(ENABLE_OVERLOADING)
TreeViewGetPathAtPosMethodInfo ,
#endif
treeViewGetPathAtPos ,
#if defined(ENABLE_OVERLOADING)
TreeViewGetReorderableMethodInfo ,
#endif
treeViewGetReorderable ,
#if defined(ENABLE_OVERLOADING)
TreeViewGetRubberBandingMethodInfo ,
#endif
treeViewGetRubberBanding ,
#if defined(ENABLE_OVERLOADING)
TreeViewGetSearchColumnMethodInfo ,
#endif
treeViewGetSearchColumn ,
#if defined(ENABLE_OVERLOADING)
TreeViewGetSearchEntryMethodInfo ,
#endif
treeViewGetSearchEntry ,
#if defined(ENABLE_OVERLOADING)
TreeViewGetSelectionMethodInfo ,
#endif
treeViewGetSelection ,
#if defined(ENABLE_OVERLOADING)
TreeViewGetShowExpandersMethodInfo ,
#endif
treeViewGetShowExpanders ,
#if defined(ENABLE_OVERLOADING)
TreeViewGetTooltipColumnMethodInfo ,
#endif
treeViewGetTooltipColumn ,
#if defined(ENABLE_OVERLOADING)
TreeViewGetTooltipContextMethodInfo ,
#endif
treeViewGetTooltipContext ,
#if defined(ENABLE_OVERLOADING)
TreeViewGetVisibleRangeMethodInfo ,
#endif
treeViewGetVisibleRange ,
#if defined(ENABLE_OVERLOADING)
TreeViewGetVisibleRectMethodInfo ,
#endif
treeViewGetVisibleRect ,
#if defined(ENABLE_OVERLOADING)
TreeViewInsertColumnMethodInfo ,
#endif
treeViewInsertColumn ,
#if defined(ENABLE_OVERLOADING)
TreeViewInsertColumnWithDataFuncMethodInfo,
#endif
treeViewInsertColumnWithDataFunc ,
#if defined(ENABLE_OVERLOADING)
TreeViewIsBlankAtPosMethodInfo ,
#endif
treeViewIsBlankAtPos ,
#if defined(ENABLE_OVERLOADING)
TreeViewIsRubberBandingActiveMethodInfo ,
#endif
treeViewIsRubberBandingActive ,
#if defined(ENABLE_OVERLOADING)
TreeViewMapExpandedRowsMethodInfo ,
#endif
treeViewMapExpandedRows ,
#if defined(ENABLE_OVERLOADING)
TreeViewMoveColumnAfterMethodInfo ,
#endif
treeViewMoveColumnAfter ,
treeViewNew ,
treeViewNewWithModel ,
#if defined(ENABLE_OVERLOADING)
TreeViewRemoveColumnMethodInfo ,
#endif
treeViewRemoveColumn ,
#if defined(ENABLE_OVERLOADING)
TreeViewRowActivatedMethodInfo ,
#endif
treeViewRowActivated ,
#if defined(ENABLE_OVERLOADING)
TreeViewRowExpandedMethodInfo ,
#endif
treeViewRowExpanded ,
#if defined(ENABLE_OVERLOADING)
TreeViewScrollToCellMethodInfo ,
#endif
treeViewScrollToCell ,
#if defined(ENABLE_OVERLOADING)
TreeViewScrollToPointMethodInfo ,
#endif
treeViewScrollToPoint ,
#if defined(ENABLE_OVERLOADING)
TreeViewSetActivateOnSingleClickMethodInfo,
#endif
treeViewSetActivateOnSingleClick ,
#if defined(ENABLE_OVERLOADING)
TreeViewSetColumnDragFunctionMethodInfo ,
#endif
treeViewSetColumnDragFunction ,
#if defined(ENABLE_OVERLOADING)
TreeViewSetCursorMethodInfo ,
#endif
treeViewSetCursor ,
#if defined(ENABLE_OVERLOADING)
TreeViewSetCursorOnCellMethodInfo ,
#endif
treeViewSetCursorOnCell ,
#if defined(ENABLE_OVERLOADING)
TreeViewSetDragDestRowMethodInfo ,
#endif
treeViewSetDragDestRow ,
#if defined(ENABLE_OVERLOADING)
TreeViewSetEnableSearchMethodInfo ,
#endif
treeViewSetEnableSearch ,
#if defined(ENABLE_OVERLOADING)
TreeViewSetEnableTreeLinesMethodInfo ,
#endif
treeViewSetEnableTreeLines ,
#if defined(ENABLE_OVERLOADING)
TreeViewSetExpanderColumnMethodInfo ,
#endif
treeViewSetExpanderColumn ,
#if defined(ENABLE_OVERLOADING)
TreeViewSetFixedHeightModeMethodInfo ,
#endif
treeViewSetFixedHeightMode ,
#if defined(ENABLE_OVERLOADING)
TreeViewSetGridLinesMethodInfo ,
#endif
treeViewSetGridLines ,
#if defined(ENABLE_OVERLOADING)
TreeViewSetHeadersClickableMethodInfo ,
#endif
treeViewSetHeadersClickable ,
#if defined(ENABLE_OVERLOADING)
TreeViewSetHeadersVisibleMethodInfo ,
#endif
treeViewSetHeadersVisible ,
#if defined(ENABLE_OVERLOADING)
TreeViewSetHoverExpandMethodInfo ,
#endif
treeViewSetHoverExpand ,
#if defined(ENABLE_OVERLOADING)
TreeViewSetHoverSelectionMethodInfo ,
#endif
treeViewSetHoverSelection ,
#if defined(ENABLE_OVERLOADING)
TreeViewSetLevelIndentationMethodInfo ,
#endif
treeViewSetLevelIndentation ,
#if defined(ENABLE_OVERLOADING)
TreeViewSetModelMethodInfo ,
#endif
treeViewSetModel ,
#if defined(ENABLE_OVERLOADING)
TreeViewSetReorderableMethodInfo ,
#endif
treeViewSetReorderable ,
#if defined(ENABLE_OVERLOADING)
TreeViewSetRowSeparatorFuncMethodInfo ,
#endif
treeViewSetRowSeparatorFunc ,
#if defined(ENABLE_OVERLOADING)
TreeViewSetRubberBandingMethodInfo ,
#endif
treeViewSetRubberBanding ,
#if defined(ENABLE_OVERLOADING)
TreeViewSetSearchColumnMethodInfo ,
#endif
treeViewSetSearchColumn ,
#if defined(ENABLE_OVERLOADING)
TreeViewSetSearchEntryMethodInfo ,
#endif
treeViewSetSearchEntry ,
#if defined(ENABLE_OVERLOADING)
TreeViewSetSearchEqualFuncMethodInfo ,
#endif
treeViewSetSearchEqualFunc ,
#if defined(ENABLE_OVERLOADING)
TreeViewSetShowExpandersMethodInfo ,
#endif
treeViewSetShowExpanders ,
#if defined(ENABLE_OVERLOADING)
TreeViewSetTooltipCellMethodInfo ,
#endif
treeViewSetTooltipCell ,
#if defined(ENABLE_OVERLOADING)
TreeViewSetTooltipColumnMethodInfo ,
#endif
treeViewSetTooltipColumn ,
#if defined(ENABLE_OVERLOADING)
TreeViewSetTooltipRowMethodInfo ,
#endif
treeViewSetTooltipRow ,
#if defined(ENABLE_OVERLOADING)
TreeViewUnsetRowsDragDestMethodInfo ,
#endif
treeViewUnsetRowsDragDest ,
#if defined(ENABLE_OVERLOADING)
TreeViewUnsetRowsDragSourceMethodInfo ,
#endif
treeViewUnsetRowsDragSource ,
#if defined(ENABLE_OVERLOADING)
TreeViewActivateOnSingleClickPropertyInfo,
#endif
constructTreeViewActivateOnSingleClick ,
getTreeViewActivateOnSingleClick ,
setTreeViewActivateOnSingleClick ,
#if defined(ENABLE_OVERLOADING)
treeViewActivateOnSingleClick ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewEnableGridLinesPropertyInfo ,
#endif
constructTreeViewEnableGridLines ,
getTreeViewEnableGridLines ,
setTreeViewEnableGridLines ,
#if defined(ENABLE_OVERLOADING)
treeViewEnableGridLines ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewEnableSearchPropertyInfo ,
#endif
constructTreeViewEnableSearch ,
getTreeViewEnableSearch ,
setTreeViewEnableSearch ,
#if defined(ENABLE_OVERLOADING)
treeViewEnableSearch ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewEnableTreeLinesPropertyInfo ,
#endif
constructTreeViewEnableTreeLines ,
getTreeViewEnableTreeLines ,
setTreeViewEnableTreeLines ,
#if defined(ENABLE_OVERLOADING)
treeViewEnableTreeLines ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewExpanderColumnPropertyInfo ,
#endif
clearTreeViewExpanderColumn ,
constructTreeViewExpanderColumn ,
getTreeViewExpanderColumn ,
setTreeViewExpanderColumn ,
#if defined(ENABLE_OVERLOADING)
treeViewExpanderColumn ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewFixedHeightModePropertyInfo ,
#endif
constructTreeViewFixedHeightMode ,
getTreeViewFixedHeightMode ,
setTreeViewFixedHeightMode ,
#if defined(ENABLE_OVERLOADING)
treeViewFixedHeightMode ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewHeadersClickablePropertyInfo ,
#endif
constructTreeViewHeadersClickable ,
getTreeViewHeadersClickable ,
setTreeViewHeadersClickable ,
#if defined(ENABLE_OVERLOADING)
treeViewHeadersClickable ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewHeadersVisiblePropertyInfo ,
#endif
constructTreeViewHeadersVisible ,
getTreeViewHeadersVisible ,
setTreeViewHeadersVisible ,
#if defined(ENABLE_OVERLOADING)
treeViewHeadersVisible ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewHoverExpandPropertyInfo ,
#endif
constructTreeViewHoverExpand ,
getTreeViewHoverExpand ,
setTreeViewHoverExpand ,
#if defined(ENABLE_OVERLOADING)
treeViewHoverExpand ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewHoverSelectionPropertyInfo ,
#endif
constructTreeViewHoverSelection ,
getTreeViewHoverSelection ,
setTreeViewHoverSelection ,
#if defined(ENABLE_OVERLOADING)
treeViewHoverSelection ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewLevelIndentationPropertyInfo ,
#endif
constructTreeViewLevelIndentation ,
getTreeViewLevelIndentation ,
setTreeViewLevelIndentation ,
#if defined(ENABLE_OVERLOADING)
treeViewLevelIndentation ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewModelPropertyInfo ,
#endif
clearTreeViewModel ,
constructTreeViewModel ,
getTreeViewModel ,
setTreeViewModel ,
#if defined(ENABLE_OVERLOADING)
treeViewModel ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewReorderablePropertyInfo ,
#endif
constructTreeViewReorderable ,
getTreeViewReorderable ,
setTreeViewReorderable ,
#if defined(ENABLE_OVERLOADING)
treeViewReorderable ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewRubberBandingPropertyInfo ,
#endif
constructTreeViewRubberBanding ,
getTreeViewRubberBanding ,
setTreeViewRubberBanding ,
#if defined(ENABLE_OVERLOADING)
treeViewRubberBanding ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewSearchColumnPropertyInfo ,
#endif
constructTreeViewSearchColumn ,
getTreeViewSearchColumn ,
setTreeViewSearchColumn ,
#if defined(ENABLE_OVERLOADING)
treeViewSearchColumn ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewShowExpandersPropertyInfo ,
#endif
constructTreeViewShowExpanders ,
getTreeViewShowExpanders ,
setTreeViewShowExpanders ,
#if defined(ENABLE_OVERLOADING)
treeViewShowExpanders ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewTooltipColumnPropertyInfo ,
#endif
constructTreeViewTooltipColumn ,
getTreeViewTooltipColumn ,
setTreeViewTooltipColumn ,
#if defined(ENABLE_OVERLOADING)
treeViewTooltipColumn ,
#endif
TreeViewColumnsChangedCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnsChangedSignalInfo ,
#endif
afterTreeViewColumnsChanged ,
onTreeViewColumnsChanged ,
TreeViewCursorChangedCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewCursorChangedSignalInfo ,
#endif
afterTreeViewCursorChanged ,
onTreeViewCursorChanged ,
TreeViewExpandCollapseCursorRowCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewExpandCollapseCursorRowSignalInfo,
#endif
afterTreeViewExpandCollapseCursorRow ,
onTreeViewExpandCollapseCursorRow ,
TreeViewMoveCursorCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewMoveCursorSignalInfo ,
#endif
afterTreeViewMoveCursor ,
onTreeViewMoveCursor ,
TreeViewRowActivatedCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewRowActivatedSignalInfo ,
#endif
afterTreeViewRowActivated ,
onTreeViewRowActivated ,
TreeViewRowCollapsedCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewRowCollapsedSignalInfo ,
#endif
afterTreeViewRowCollapsed ,
onTreeViewRowCollapsed ,
TreeViewRowExpandedCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewRowExpandedSignalInfo ,
#endif
afterTreeViewRowExpanded ,
onTreeViewRowExpanded ,
TreeViewSelectAllCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewSelectAllSignalInfo ,
#endif
afterTreeViewSelectAll ,
onTreeViewSelectAll ,
TreeViewSelectCursorParentCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewSelectCursorParentSignalInfo ,
#endif
afterTreeViewSelectCursorParent ,
onTreeViewSelectCursorParent ,
TreeViewSelectCursorRowCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewSelectCursorRowSignalInfo ,
#endif
afterTreeViewSelectCursorRow ,
onTreeViewSelectCursorRow ,
TreeViewStartInteractiveSearchCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewStartInteractiveSearchSignalInfo,
#endif
afterTreeViewStartInteractiveSearch ,
onTreeViewStartInteractiveSearch ,
TreeViewTestCollapseRowCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewTestCollapseRowSignalInfo ,
#endif
afterTreeViewTestCollapseRow ,
onTreeViewTestCollapseRow ,
TreeViewTestExpandRowCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewTestExpandRowSignalInfo ,
#endif
afterTreeViewTestExpandRow ,
onTreeViewTestExpandRow ,
TreeViewToggleCursorRowCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewToggleCursorRowSignalInfo ,
#endif
afterTreeViewToggleCursorRow ,
onTreeViewToggleCursorRow ,
TreeViewUnselectAllCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewUnselectAllSignalInfo ,
#endif
afterTreeViewUnselectAll ,
onTreeViewUnselectAll ,
) 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.GObject.Structs.ObjectClass as GObject.ObjectClass
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.ContentFormats as Gdk.ContentFormats
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.CellEditable as Gtk.CellEditable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.CellLayout as Gtk.CellLayout
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Editable as Gtk.Editable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Native as Gtk.Native
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.StyleProvider as Gtk.StyleProvider
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.TreeModel as Gtk.TreeModel
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.CellArea as Gtk.CellArea
import {-# SOURCE #-} qualified GI.Gtk.Objects.CellAreaContext as Gtk.CellAreaContext
import {-# SOURCE #-} qualified GI.Gtk.Objects.CellRenderer as Gtk.CellRenderer
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.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.TreeSelection as Gtk.TreeSelection
import {-# SOURCE #-} qualified GI.Gtk.Objects.TreeViewColumn as Gtk.TreeViewColumn
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
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.TreeIter as Gtk.TreeIter
import {-# SOURCE #-} qualified GI.Gtk.Structs.TreePath as Gtk.TreePath
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.GLib.Callbacks as GLib.Callbacks
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.Structs.ContentFormats as Gdk.ContentFormats
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Editable as Gtk.Editable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Scrollable as Gtk.Scrollable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.TreeModel as Gtk.TreeModel
import {-# SOURCE #-} qualified GI.Gtk.Objects.CellRenderer as Gtk.CellRenderer
import {-# SOURCE #-} qualified GI.Gtk.Objects.Tooltip as Gtk.Tooltip
import {-# SOURCE #-} qualified GI.Gtk.Objects.TreeSelection as Gtk.TreeSelection
import {-# SOURCE #-} qualified GI.Gtk.Objects.TreeViewColumn as Gtk.TreeViewColumn
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Gtk.Structs.TreeIter as Gtk.TreeIter
import {-# SOURCE #-} qualified GI.Gtk.Structs.TreePath as Gtk.TreePath
#endif
newtype TreeView = TreeView (SP.ManagedPtr TreeView)
deriving (TreeView -> TreeView -> Bool
(TreeView -> TreeView -> Bool)
-> (TreeView -> TreeView -> Bool) -> Eq TreeView
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TreeView -> TreeView -> Bool
== :: TreeView -> TreeView -> Bool
$c/= :: TreeView -> TreeView -> Bool
/= :: TreeView -> TreeView -> Bool
Eq)
instance SP.ManagedPtrNewtype TreeView where
toManagedPtr :: TreeView -> ManagedPtr TreeView
toManagedPtr (TreeView ManagedPtr TreeView
p) = ManagedPtr TreeView
p
foreign import ccall "gtk_tree_view_get_type"
c_gtk_tree_view_get_type :: IO B.Types.GType
instance B.Types.TypedObject TreeView where
glibType :: IO GType
glibType = IO GType
c_gtk_tree_view_get_type
instance B.Types.GObject TreeView
class (SP.GObject o, O.IsDescendantOf TreeView o) => IsTreeView o
instance (SP.GObject o, O.IsDescendantOf TreeView o) => IsTreeView o
instance O.HasParentTypes TreeView
type instance O.ParentTypes TreeView = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget, Gtk.Scrollable.Scrollable]
toTreeView :: (MIO.MonadIO m, IsTreeView o) => o -> m TreeView
toTreeView :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> m TreeView
toTreeView = IO TreeView -> m TreeView
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO TreeView -> m TreeView)
-> (o -> IO TreeView) -> o -> m TreeView
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr TreeView -> TreeView) -> o -> IO TreeView
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr TreeView -> TreeView
TreeView
instance B.GValue.IsGValue (Maybe TreeView) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_tree_view_get_type
gvalueSet_ :: Ptr GValue -> Maybe TreeView -> IO ()
gvalueSet_ Ptr GValue
gv Maybe TreeView
P.Nothing = Ptr GValue -> Ptr TreeView -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr TreeView
forall a. Ptr a
FP.nullPtr :: FP.Ptr TreeView)
gvalueSet_ Ptr GValue
gv (P.Just TreeView
obj) = TreeView -> (Ptr TreeView -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr TreeView
obj (Ptr GValue -> Ptr TreeView -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe TreeView)
gvalueGet_ Ptr GValue
gv = do
ptr <- Ptr GValue -> IO (Ptr TreeView)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr TreeView)
if ptr /= FP.nullPtr
then P.Just <$> B.ManagedPtr.newObject TreeView ptr
else return P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveTreeViewMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveTreeViewMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveTreeViewMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveTreeViewMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveTreeViewMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveTreeViewMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveTreeViewMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveTreeViewMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveTreeViewMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveTreeViewMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveTreeViewMethod "announce" o = Gtk.Accessible.AccessibleAnnounceMethodInfo
ResolveTreeViewMethod "appendColumn" o = TreeViewAppendColumnMethodInfo
ResolveTreeViewMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveTreeViewMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveTreeViewMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveTreeViewMethod "collapseAll" o = TreeViewCollapseAllMethodInfo
ResolveTreeViewMethod "collapseRow" o = TreeViewCollapseRowMethodInfo
ResolveTreeViewMethod "columnsAutosize" o = TreeViewColumnsAutosizeMethodInfo
ResolveTreeViewMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveTreeViewMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveTreeViewMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveTreeViewMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveTreeViewMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveTreeViewMethod "convertBinWindowToTreeCoords" o = TreeViewConvertBinWindowToTreeCoordsMethodInfo
ResolveTreeViewMethod "convertBinWindowToWidgetCoords" o = TreeViewConvertBinWindowToWidgetCoordsMethodInfo
ResolveTreeViewMethod "convertTreeToBinWindowCoords" o = TreeViewConvertTreeToBinWindowCoordsMethodInfo
ResolveTreeViewMethod "convertTreeToWidgetCoords" o = TreeViewConvertTreeToWidgetCoordsMethodInfo
ResolveTreeViewMethod "convertWidgetToBinWindowCoords" o = TreeViewConvertWidgetToBinWindowCoordsMethodInfo
ResolveTreeViewMethod "convertWidgetToTreeCoords" o = TreeViewConvertWidgetToTreeCoordsMethodInfo
ResolveTreeViewMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveTreeViewMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveTreeViewMethod "createRowDragIcon" o = TreeViewCreateRowDragIconMethodInfo
ResolveTreeViewMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolveTreeViewMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveTreeViewMethod "enableModelDragDest" o = TreeViewEnableModelDragDestMethodInfo
ResolveTreeViewMethod "enableModelDragSource" o = TreeViewEnableModelDragSourceMethodInfo
ResolveTreeViewMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveTreeViewMethod "expandAll" o = TreeViewExpandAllMethodInfo
ResolveTreeViewMethod "expandRow" o = TreeViewExpandRowMethodInfo
ResolveTreeViewMethod "expandToPath" o = TreeViewExpandToPathMethodInfo
ResolveTreeViewMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveTreeViewMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveTreeViewMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveTreeViewMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveTreeViewMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveTreeViewMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveTreeViewMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveTreeViewMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveTreeViewMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveTreeViewMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveTreeViewMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveTreeViewMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveTreeViewMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveTreeViewMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveTreeViewMethod "insertColumn" o = TreeViewInsertColumnMethodInfo
ResolveTreeViewMethod "insertColumnWithDataFunc" o = TreeViewInsertColumnWithDataFuncMethodInfo
ResolveTreeViewMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveTreeViewMethod "isBlankAtPos" o = TreeViewIsBlankAtPosMethodInfo
ResolveTreeViewMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveTreeViewMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveTreeViewMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveTreeViewMethod "isRubberBandingActive" o = TreeViewIsRubberBandingActiveMethodInfo
ResolveTreeViewMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveTreeViewMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveTreeViewMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveTreeViewMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveTreeViewMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveTreeViewMethod "mapExpandedRows" o = TreeViewMapExpandedRowsMethodInfo
ResolveTreeViewMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveTreeViewMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveTreeViewMethod "moveColumnAfter" o = TreeViewMoveColumnAfterMethodInfo
ResolveTreeViewMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveTreeViewMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveTreeViewMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveTreeViewMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveTreeViewMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveTreeViewMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveTreeViewMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveTreeViewMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveTreeViewMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveTreeViewMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveTreeViewMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveTreeViewMethod "removeColumn" o = TreeViewRemoveColumnMethodInfo
ResolveTreeViewMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveTreeViewMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveTreeViewMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveTreeViewMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveTreeViewMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveTreeViewMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveTreeViewMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveTreeViewMethod "rowActivated" o = TreeViewRowActivatedMethodInfo
ResolveTreeViewMethod "rowExpanded" o = TreeViewRowExpandedMethodInfo
ResolveTreeViewMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveTreeViewMethod "scrollToCell" o = TreeViewScrollToCellMethodInfo
ResolveTreeViewMethod "scrollToPoint" o = TreeViewScrollToPointMethodInfo
ResolveTreeViewMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveTreeViewMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveTreeViewMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveTreeViewMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveTreeViewMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveTreeViewMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveTreeViewMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveTreeViewMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveTreeViewMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveTreeViewMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveTreeViewMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveTreeViewMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveTreeViewMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveTreeViewMethod "unsetRowsDragDest" o = TreeViewUnsetRowsDragDestMethodInfo
ResolveTreeViewMethod "unsetRowsDragSource" o = TreeViewUnsetRowsDragSourceMethodInfo
ResolveTreeViewMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveTreeViewMethod "updateNextAccessibleSibling" o = Gtk.Accessible.AccessibleUpdateNextAccessibleSiblingMethodInfo
ResolveTreeViewMethod "updatePlatformState" o = Gtk.Accessible.AccessibleUpdatePlatformStateMethodInfo
ResolveTreeViewMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveTreeViewMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveTreeViewMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveTreeViewMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveTreeViewMethod "getAccessibleParent" o = Gtk.Accessible.AccessibleGetAccessibleParentMethodInfo
ResolveTreeViewMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveTreeViewMethod "getActivateOnSingleClick" o = TreeViewGetActivateOnSingleClickMethodInfo
ResolveTreeViewMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveTreeViewMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveTreeViewMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveTreeViewMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveTreeViewMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveTreeViewMethod "getAtContext" o = Gtk.Accessible.AccessibleGetAtContextMethodInfo
ResolveTreeViewMethod "getBackgroundArea" o = TreeViewGetBackgroundAreaMethodInfo
ResolveTreeViewMethod "getBaseline" o = Gtk.Widget.WidgetGetBaselineMethodInfo
ResolveTreeViewMethod "getBorder" o = Gtk.Scrollable.ScrollableGetBorderMethodInfo
ResolveTreeViewMethod "getBounds" o = Gtk.Accessible.AccessibleGetBoundsMethodInfo
ResolveTreeViewMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveTreeViewMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveTreeViewMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveTreeViewMethod "getCellArea" o = TreeViewGetCellAreaMethodInfo
ResolveTreeViewMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveTreeViewMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveTreeViewMethod "getColor" o = Gtk.Widget.WidgetGetColorMethodInfo
ResolveTreeViewMethod "getColumn" o = TreeViewGetColumnMethodInfo
ResolveTreeViewMethod "getColumns" o = TreeViewGetColumnsMethodInfo
ResolveTreeViewMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveTreeViewMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveTreeViewMethod "getCursor" o = TreeViewGetCursorMethodInfo
ResolveTreeViewMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveTreeViewMethod "getDestRowAtPos" o = TreeViewGetDestRowAtPosMethodInfo
ResolveTreeViewMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveTreeViewMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveTreeViewMethod "getDragDestRow" o = TreeViewGetDragDestRowMethodInfo
ResolveTreeViewMethod "getEnableSearch" o = TreeViewGetEnableSearchMethodInfo
ResolveTreeViewMethod "getEnableTreeLines" o = TreeViewGetEnableTreeLinesMethodInfo
ResolveTreeViewMethod "getExpanderColumn" o = TreeViewGetExpanderColumnMethodInfo
ResolveTreeViewMethod "getFirstAccessibleChild" o = Gtk.Accessible.AccessibleGetFirstAccessibleChildMethodInfo
ResolveTreeViewMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveTreeViewMethod "getFixedHeightMode" o = TreeViewGetFixedHeightModeMethodInfo
ResolveTreeViewMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveTreeViewMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveTreeViewMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveTreeViewMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveTreeViewMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveTreeViewMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveTreeViewMethod "getGridLines" o = TreeViewGetGridLinesMethodInfo
ResolveTreeViewMethod "getHadjustment" o = Gtk.Scrollable.ScrollableGetHadjustmentMethodInfo
ResolveTreeViewMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveTreeViewMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveTreeViewMethod "getHeadersClickable" o = TreeViewGetHeadersClickableMethodInfo
ResolveTreeViewMethod "getHeadersVisible" o = TreeViewGetHeadersVisibleMethodInfo
ResolveTreeViewMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveTreeViewMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveTreeViewMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveTreeViewMethod "getHoverExpand" o = TreeViewGetHoverExpandMethodInfo
ResolveTreeViewMethod "getHoverSelection" o = TreeViewGetHoverSelectionMethodInfo
ResolveTreeViewMethod "getHscrollPolicy" o = Gtk.Scrollable.ScrollableGetHscrollPolicyMethodInfo
ResolveTreeViewMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveTreeViewMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveTreeViewMethod "getLevelIndentation" o = TreeViewGetLevelIndentationMethodInfo
ResolveTreeViewMethod "getLimitEvents" o = Gtk.Widget.WidgetGetLimitEventsMethodInfo
ResolveTreeViewMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveTreeViewMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveTreeViewMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveTreeViewMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveTreeViewMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveTreeViewMethod "getModel" o = TreeViewGetModelMethodInfo
ResolveTreeViewMethod "getNColumns" o = TreeViewGetNColumnsMethodInfo
ResolveTreeViewMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveTreeViewMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveTreeViewMethod "getNextAccessibleSibling" o = Gtk.Accessible.AccessibleGetNextAccessibleSiblingMethodInfo
ResolveTreeViewMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveTreeViewMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveTreeViewMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveTreeViewMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveTreeViewMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveTreeViewMethod "getPathAtPos" o = TreeViewGetPathAtPosMethodInfo
ResolveTreeViewMethod "getPlatformState" o = Gtk.Accessible.AccessibleGetPlatformStateMethodInfo
ResolveTreeViewMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveTreeViewMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveTreeViewMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveTreeViewMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveTreeViewMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveTreeViewMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveTreeViewMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveTreeViewMethod "getReorderable" o = TreeViewGetReorderableMethodInfo
ResolveTreeViewMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveTreeViewMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveTreeViewMethod "getRubberBanding" o = TreeViewGetRubberBandingMethodInfo
ResolveTreeViewMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveTreeViewMethod "getSearchColumn" o = TreeViewGetSearchColumnMethodInfo
ResolveTreeViewMethod "getSearchEntry" o = TreeViewGetSearchEntryMethodInfo
ResolveTreeViewMethod "getSelection" o = TreeViewGetSelectionMethodInfo
ResolveTreeViewMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveTreeViewMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveTreeViewMethod "getShowExpanders" o = TreeViewGetShowExpandersMethodInfo
ResolveTreeViewMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveTreeViewMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveTreeViewMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveTreeViewMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveTreeViewMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveTreeViewMethod "getTooltipColumn" o = TreeViewGetTooltipColumnMethodInfo
ResolveTreeViewMethod "getTooltipContext" o = TreeViewGetTooltipContextMethodInfo
ResolveTreeViewMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveTreeViewMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveTreeViewMethod "getVadjustment" o = Gtk.Scrollable.ScrollableGetVadjustmentMethodInfo
ResolveTreeViewMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveTreeViewMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveTreeViewMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveTreeViewMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveTreeViewMethod "getVisibleRange" o = TreeViewGetVisibleRangeMethodInfo
ResolveTreeViewMethod "getVisibleRect" o = TreeViewGetVisibleRectMethodInfo
ResolveTreeViewMethod "getVscrollPolicy" o = Gtk.Scrollable.ScrollableGetVscrollPolicyMethodInfo
ResolveTreeViewMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveTreeViewMethod "setAccessibleParent" o = Gtk.Accessible.AccessibleSetAccessibleParentMethodInfo
ResolveTreeViewMethod "setActivateOnSingleClick" o = TreeViewSetActivateOnSingleClickMethodInfo
ResolveTreeViewMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveTreeViewMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveTreeViewMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveTreeViewMethod "setColumnDragFunction" o = TreeViewSetColumnDragFunctionMethodInfo
ResolveTreeViewMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveTreeViewMethod "setCursor" o = TreeViewSetCursorMethodInfo
ResolveTreeViewMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveTreeViewMethod "setCursorOnCell" o = TreeViewSetCursorOnCellMethodInfo
ResolveTreeViewMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveTreeViewMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveTreeViewMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveTreeViewMethod "setDragDestRow" o = TreeViewSetDragDestRowMethodInfo
ResolveTreeViewMethod "setEnableSearch" o = TreeViewSetEnableSearchMethodInfo
ResolveTreeViewMethod "setEnableTreeLines" o = TreeViewSetEnableTreeLinesMethodInfo
ResolveTreeViewMethod "setExpanderColumn" o = TreeViewSetExpanderColumnMethodInfo
ResolveTreeViewMethod "setFixedHeightMode" o = TreeViewSetFixedHeightModeMethodInfo
ResolveTreeViewMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveTreeViewMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveTreeViewMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveTreeViewMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveTreeViewMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveTreeViewMethod "setGridLines" o = TreeViewSetGridLinesMethodInfo
ResolveTreeViewMethod "setHadjustment" o = Gtk.Scrollable.ScrollableSetHadjustmentMethodInfo
ResolveTreeViewMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveTreeViewMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveTreeViewMethod "setHeadersClickable" o = TreeViewSetHeadersClickableMethodInfo
ResolveTreeViewMethod "setHeadersVisible" o = TreeViewSetHeadersVisibleMethodInfo
ResolveTreeViewMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveTreeViewMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveTreeViewMethod "setHoverExpand" o = TreeViewSetHoverExpandMethodInfo
ResolveTreeViewMethod "setHoverSelection" o = TreeViewSetHoverSelectionMethodInfo
ResolveTreeViewMethod "setHscrollPolicy" o = Gtk.Scrollable.ScrollableSetHscrollPolicyMethodInfo
ResolveTreeViewMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveTreeViewMethod "setLevelIndentation" o = TreeViewSetLevelIndentationMethodInfo
ResolveTreeViewMethod "setLimitEvents" o = Gtk.Widget.WidgetSetLimitEventsMethodInfo
ResolveTreeViewMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveTreeViewMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveTreeViewMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveTreeViewMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveTreeViewMethod "setModel" o = TreeViewSetModelMethodInfo
ResolveTreeViewMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveTreeViewMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveTreeViewMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveTreeViewMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveTreeViewMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveTreeViewMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveTreeViewMethod "setReorderable" o = TreeViewSetReorderableMethodInfo
ResolveTreeViewMethod "setRowSeparatorFunc" o = TreeViewSetRowSeparatorFuncMethodInfo
ResolveTreeViewMethod "setRubberBanding" o = TreeViewSetRubberBandingMethodInfo
ResolveTreeViewMethod "setSearchColumn" o = TreeViewSetSearchColumnMethodInfo
ResolveTreeViewMethod "setSearchEntry" o = TreeViewSetSearchEntryMethodInfo
ResolveTreeViewMethod "setSearchEqualFunc" o = TreeViewSetSearchEqualFuncMethodInfo
ResolveTreeViewMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveTreeViewMethod "setShowExpanders" o = TreeViewSetShowExpandersMethodInfo
ResolveTreeViewMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveTreeViewMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveTreeViewMethod "setTooltipCell" o = TreeViewSetTooltipCellMethodInfo
ResolveTreeViewMethod "setTooltipColumn" o = TreeViewSetTooltipColumnMethodInfo
ResolveTreeViewMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveTreeViewMethod "setTooltipRow" o = TreeViewSetTooltipRowMethodInfo
ResolveTreeViewMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveTreeViewMethod "setVadjustment" o = Gtk.Scrollable.ScrollableSetVadjustmentMethodInfo
ResolveTreeViewMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveTreeViewMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveTreeViewMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveTreeViewMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveTreeViewMethod "setVscrollPolicy" o = Gtk.Scrollable.ScrollableSetVscrollPolicyMethodInfo
ResolveTreeViewMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTreeViewMethod t TreeView, O.OverloadedMethod info TreeView p) => OL.IsLabel t (TreeView -> 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 ~ ResolveTreeViewMethod t TreeView, O.OverloadedMethod info TreeView p, R.HasField t TreeView p) => R.HasField t TreeView p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveTreeViewMethod t TreeView, O.OverloadedMethodInfo info TreeView) => OL.IsLabel t (O.MethodProxy info TreeView) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type TreeViewColumnsChangedCallback =
IO ()
type C_TreeViewColumnsChangedCallback =
Ptr TreeView ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TreeViewColumnsChangedCallback :: C_TreeViewColumnsChangedCallback -> IO (FunPtr C_TreeViewColumnsChangedCallback)
wrap_TreeViewColumnsChangedCallback ::
GObject a => (a -> TreeViewColumnsChangedCallback) ->
C_TreeViewColumnsChangedCallback
wrap_TreeViewColumnsChangedCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_TreeViewColumnsChangedCallback
wrap_TreeViewColumnsChangedCallback a -> IO ()
gi'cb Ptr TreeView
gi'selfPtr Ptr ()
_ = do
Ptr TreeView -> (TreeView -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr TreeView
gi'selfPtr ((TreeView -> IO ()) -> IO ()) -> (TreeView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \TreeView
gi'self -> a -> IO ()
gi'cb (TreeView -> a
forall a b. Coercible a b => a -> b
Coerce.coerce TreeView
gi'self)
onTreeViewColumnsChanged :: (IsTreeView a, MonadIO m) => a -> ((?self :: a) => TreeViewColumnsChangedCallback) -> m SignalHandlerId
onTreeViewColumnsChanged :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTreeViewColumnsChanged a
obj (?self::a) => IO ()
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 -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TreeViewColumnsChangedCallback
wrapped' = (a -> IO ()) -> C_TreeViewColumnsChangedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_TreeViewColumnsChangedCallback
wrap_TreeViewColumnsChangedCallback a -> IO ()
wrapped
wrapped'' <- C_TreeViewColumnsChangedCallback
-> IO (FunPtr C_TreeViewColumnsChangedCallback)
mk_TreeViewColumnsChangedCallback C_TreeViewColumnsChangedCallback
wrapped'
connectSignalFunPtr obj "columns-changed" wrapped'' SignalConnectBefore Nothing
afterTreeViewColumnsChanged :: (IsTreeView a, MonadIO m) => a -> ((?self :: a) => TreeViewColumnsChangedCallback) -> m SignalHandlerId
afterTreeViewColumnsChanged :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTreeViewColumnsChanged a
obj (?self::a) => IO ()
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 -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TreeViewColumnsChangedCallback
wrapped' = (a -> IO ()) -> C_TreeViewColumnsChangedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_TreeViewColumnsChangedCallback
wrap_TreeViewColumnsChangedCallback a -> IO ()
wrapped
wrapped'' <- C_TreeViewColumnsChangedCallback
-> IO (FunPtr C_TreeViewColumnsChangedCallback)
mk_TreeViewColumnsChangedCallback C_TreeViewColumnsChangedCallback
wrapped'
connectSignalFunPtr obj "columns-changed" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnsChangedSignalInfo
instance SignalInfo TreeViewColumnsChangedSignalInfo where
type HaskellCallbackType TreeViewColumnsChangedSignalInfo = TreeViewColumnsChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TreeViewColumnsChangedCallback cb
cb'' <- mk_TreeViewColumnsChangedCallback cb'
connectSignalFunPtr obj "columns-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView::columns-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:signal:columnsChanged"})
#endif
type TreeViewCursorChangedCallback =
IO ()
type C_TreeViewCursorChangedCallback =
Ptr TreeView ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TreeViewCursorChangedCallback :: C_TreeViewCursorChangedCallback -> IO (FunPtr C_TreeViewCursorChangedCallback)
wrap_TreeViewCursorChangedCallback ::
GObject a => (a -> TreeViewCursorChangedCallback) ->
C_TreeViewCursorChangedCallback
wrap_TreeViewCursorChangedCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_TreeViewColumnsChangedCallback
wrap_TreeViewCursorChangedCallback a -> IO ()
gi'cb Ptr TreeView
gi'selfPtr Ptr ()
_ = do
Ptr TreeView -> (TreeView -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr TreeView
gi'selfPtr ((TreeView -> IO ()) -> IO ()) -> (TreeView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \TreeView
gi'self -> a -> IO ()
gi'cb (TreeView -> a
forall a b. Coercible a b => a -> b
Coerce.coerce TreeView
gi'self)
onTreeViewCursorChanged :: (IsTreeView a, MonadIO m) => a -> ((?self :: a) => TreeViewCursorChangedCallback) -> m SignalHandlerId
onTreeViewCursorChanged :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTreeViewCursorChanged a
obj (?self::a) => IO ()
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 -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TreeViewColumnsChangedCallback
wrapped' = (a -> IO ()) -> C_TreeViewColumnsChangedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_TreeViewColumnsChangedCallback
wrap_TreeViewCursorChangedCallback a -> IO ()
wrapped
wrapped'' <- C_TreeViewColumnsChangedCallback
-> IO (FunPtr C_TreeViewColumnsChangedCallback)
mk_TreeViewCursorChangedCallback C_TreeViewColumnsChangedCallback
wrapped'
connectSignalFunPtr obj "cursor-changed" wrapped'' SignalConnectBefore Nothing
afterTreeViewCursorChanged :: (IsTreeView a, MonadIO m) => a -> ((?self :: a) => TreeViewCursorChangedCallback) -> m SignalHandlerId
afterTreeViewCursorChanged :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTreeViewCursorChanged a
obj (?self::a) => IO ()
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 -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TreeViewColumnsChangedCallback
wrapped' = (a -> IO ()) -> C_TreeViewColumnsChangedCallback
forall a.
GObject a =>
(a -> IO ()) -> C_TreeViewColumnsChangedCallback
wrap_TreeViewCursorChangedCallback a -> IO ()
wrapped
wrapped'' <- C_TreeViewColumnsChangedCallback
-> IO (FunPtr C_TreeViewColumnsChangedCallback)
mk_TreeViewCursorChangedCallback C_TreeViewColumnsChangedCallback
wrapped'
connectSignalFunPtr obj "cursor-changed" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TreeViewCursorChangedSignalInfo
instance SignalInfo TreeViewCursorChangedSignalInfo where
type HaskellCallbackType TreeViewCursorChangedSignalInfo = TreeViewCursorChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TreeViewCursorChangedCallback cb
cb'' <- mk_TreeViewCursorChangedCallback cb'
connectSignalFunPtr obj "cursor-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView::cursor-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:signal:cursorChanged"})
#endif
type TreeViewExpandCollapseCursorRowCallback =
Bool
-> Bool
-> Bool
-> IO Bool
type C_TreeViewExpandCollapseCursorRowCallback =
Ptr TreeView ->
CInt ->
CInt ->
CInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_TreeViewExpandCollapseCursorRowCallback :: C_TreeViewExpandCollapseCursorRowCallback -> IO (FunPtr C_TreeViewExpandCollapseCursorRowCallback)
wrap_TreeViewExpandCollapseCursorRowCallback ::
GObject a => (a -> TreeViewExpandCollapseCursorRowCallback) ->
C_TreeViewExpandCollapseCursorRowCallback
wrap_TreeViewExpandCollapseCursorRowCallback :: forall a.
GObject a =>
(a -> TreeViewExpandCollapseCursorRowCallback)
-> C_TreeViewExpandCollapseCursorRowCallback
wrap_TreeViewExpandCollapseCursorRowCallback a -> TreeViewExpandCollapseCursorRowCallback
gi'cb Ptr TreeView
gi'selfPtr CInt
object CInt
p0 CInt
p1 Ptr ()
_ = do
let object' :: Bool
object' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
object
let p0' :: Bool
p0' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
p0
let p1' :: Bool
p1' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
p1
result <- Ptr TreeView -> (TreeView -> IO Bool) -> IO Bool
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr TreeView
gi'selfPtr ((TreeView -> IO Bool) -> IO Bool)
-> (TreeView -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \TreeView
gi'self -> a -> TreeViewExpandCollapseCursorRowCallback
gi'cb (TreeView -> a
forall a b. Coercible a b => a -> b
Coerce.coerce TreeView
gi'self) Bool
object' Bool
p0' Bool
p1'
let result' = (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
result
return result'
onTreeViewExpandCollapseCursorRow :: (IsTreeView a, MonadIO m) => a -> ((?self :: a) => TreeViewExpandCollapseCursorRowCallback) -> m SignalHandlerId
onTreeViewExpandCollapseCursorRow :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a
-> ((?self::a) => TreeViewExpandCollapseCursorRowCallback)
-> m SignalHandlerId
onTreeViewExpandCollapseCursorRow a
obj (?self::a) => TreeViewExpandCollapseCursorRowCallback
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 -> TreeViewExpandCollapseCursorRowCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TreeViewExpandCollapseCursorRowCallback
TreeViewExpandCollapseCursorRowCallback
cb
let wrapped' :: C_TreeViewExpandCollapseCursorRowCallback
wrapped' = (a -> TreeViewExpandCollapseCursorRowCallback)
-> C_TreeViewExpandCollapseCursorRowCallback
forall a.
GObject a =>
(a -> TreeViewExpandCollapseCursorRowCallback)
-> C_TreeViewExpandCollapseCursorRowCallback
wrap_TreeViewExpandCollapseCursorRowCallback a -> TreeViewExpandCollapseCursorRowCallback
wrapped
wrapped'' <- C_TreeViewExpandCollapseCursorRowCallback
-> IO (FunPtr C_TreeViewExpandCollapseCursorRowCallback)
mk_TreeViewExpandCollapseCursorRowCallback C_TreeViewExpandCollapseCursorRowCallback
wrapped'
connectSignalFunPtr obj "expand-collapse-cursor-row" wrapped'' SignalConnectBefore Nothing
afterTreeViewExpandCollapseCursorRow :: (IsTreeView a, MonadIO m) => a -> ((?self :: a) => TreeViewExpandCollapseCursorRowCallback) -> m SignalHandlerId
afterTreeViewExpandCollapseCursorRow :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a
-> ((?self::a) => TreeViewExpandCollapseCursorRowCallback)
-> m SignalHandlerId
afterTreeViewExpandCollapseCursorRow a
obj (?self::a) => TreeViewExpandCollapseCursorRowCallback
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 -> TreeViewExpandCollapseCursorRowCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TreeViewExpandCollapseCursorRowCallback
TreeViewExpandCollapseCursorRowCallback
cb
let wrapped' :: C_TreeViewExpandCollapseCursorRowCallback
wrapped' = (a -> TreeViewExpandCollapseCursorRowCallback)
-> C_TreeViewExpandCollapseCursorRowCallback
forall a.
GObject a =>
(a -> TreeViewExpandCollapseCursorRowCallback)
-> C_TreeViewExpandCollapseCursorRowCallback
wrap_TreeViewExpandCollapseCursorRowCallback a -> TreeViewExpandCollapseCursorRowCallback
wrapped
wrapped'' <- C_TreeViewExpandCollapseCursorRowCallback
-> IO (FunPtr C_TreeViewExpandCollapseCursorRowCallback)
mk_TreeViewExpandCollapseCursorRowCallback C_TreeViewExpandCollapseCursorRowCallback
wrapped'
connectSignalFunPtr obj "expand-collapse-cursor-row" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TreeViewExpandCollapseCursorRowSignalInfo
instance SignalInfo TreeViewExpandCollapseCursorRowSignalInfo where
type HaskellCallbackType TreeViewExpandCollapseCursorRowSignalInfo = TreeViewExpandCollapseCursorRowCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TreeViewExpandCollapseCursorRowCallback cb
cb'' <- mk_TreeViewExpandCollapseCursorRowCallback cb'
connectSignalFunPtr obj "expand-collapse-cursor-row" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView::expand-collapse-cursor-row"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:signal:expandCollapseCursorRow"})
#endif
type TreeViewMoveCursorCallback =
Gtk.Enums.MovementStep
-> Int32
-> Bool
-> Bool
-> IO Bool
type C_TreeViewMoveCursorCallback =
Ptr TreeView ->
CUInt ->
Int32 ->
CInt ->
CInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_TreeViewMoveCursorCallback :: C_TreeViewMoveCursorCallback -> IO (FunPtr C_TreeViewMoveCursorCallback)
wrap_TreeViewMoveCursorCallback ::
GObject a => (a -> TreeViewMoveCursorCallback) ->
C_TreeViewMoveCursorCallback
wrap_TreeViewMoveCursorCallback :: forall a.
GObject a =>
(a -> TreeViewMoveCursorCallback) -> C_TreeViewMoveCursorCallback
wrap_TreeViewMoveCursorCallback a -> TreeViewMoveCursorCallback
gi'cb Ptr TreeView
gi'selfPtr CUInt
step Int32
direction CInt
extend CInt
modify Ptr ()
_ = do
let step' :: MovementStep
step' = (Int -> MovementStep
forall a. Enum a => Int -> a
toEnum (Int -> MovementStep) -> (CUInt -> Int) -> CUInt -> MovementStep
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
step
let extend' :: Bool
extend' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
extend
let modify' :: Bool
modify' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
modify
result <- Ptr TreeView -> (TreeView -> IO Bool) -> IO Bool
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr TreeView
gi'selfPtr ((TreeView -> IO Bool) -> IO Bool)
-> (TreeView -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \TreeView
gi'self -> a -> TreeViewMoveCursorCallback
gi'cb (TreeView -> a
forall a b. Coercible a b => a -> b
Coerce.coerce TreeView
gi'self) MovementStep
step' Int32
direction Bool
extend' Bool
modify'
let result' = (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
result
return result'
onTreeViewMoveCursor :: (IsTreeView a, MonadIO m) => a -> ((?self :: a) => TreeViewMoveCursorCallback) -> m SignalHandlerId
onTreeViewMoveCursor :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a
-> ((?self::a) => TreeViewMoveCursorCallback) -> m SignalHandlerId
onTreeViewMoveCursor a
obj (?self::a) => TreeViewMoveCursorCallback
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 -> TreeViewMoveCursorCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TreeViewMoveCursorCallback
TreeViewMoveCursorCallback
cb
let wrapped' :: C_TreeViewMoveCursorCallback
wrapped' = (a -> TreeViewMoveCursorCallback) -> C_TreeViewMoveCursorCallback
forall a.
GObject a =>
(a -> TreeViewMoveCursorCallback) -> C_TreeViewMoveCursorCallback
wrap_TreeViewMoveCursorCallback a -> TreeViewMoveCursorCallback
wrapped
wrapped'' <- C_TreeViewMoveCursorCallback
-> IO (FunPtr C_TreeViewMoveCursorCallback)
mk_TreeViewMoveCursorCallback C_TreeViewMoveCursorCallback
wrapped'
connectSignalFunPtr obj "move-cursor" wrapped'' SignalConnectBefore Nothing
afterTreeViewMoveCursor :: (IsTreeView a, MonadIO m) => a -> ((?self :: a) => TreeViewMoveCursorCallback) -> m SignalHandlerId
afterTreeViewMoveCursor :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a
-> ((?self::a) => TreeViewMoveCursorCallback) -> m SignalHandlerId
afterTreeViewMoveCursor a
obj (?self::a) => TreeViewMoveCursorCallback
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 -> TreeViewMoveCursorCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TreeViewMoveCursorCallback
TreeViewMoveCursorCallback
cb
let wrapped' :: C_TreeViewMoveCursorCallback
wrapped' = (a -> TreeViewMoveCursorCallback) -> C_TreeViewMoveCursorCallback
forall a.
GObject a =>
(a -> TreeViewMoveCursorCallback) -> C_TreeViewMoveCursorCallback
wrap_TreeViewMoveCursorCallback a -> TreeViewMoveCursorCallback
wrapped
wrapped'' <- C_TreeViewMoveCursorCallback
-> IO (FunPtr C_TreeViewMoveCursorCallback)
mk_TreeViewMoveCursorCallback C_TreeViewMoveCursorCallback
wrapped'
connectSignalFunPtr obj "move-cursor" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TreeViewMoveCursorSignalInfo
instance SignalInfo TreeViewMoveCursorSignalInfo where
type HaskellCallbackType TreeViewMoveCursorSignalInfo = TreeViewMoveCursorCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TreeViewMoveCursorCallback cb
cb'' <- mk_TreeViewMoveCursorCallback cb'
connectSignalFunPtr obj "move-cursor" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView::move-cursor"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:signal:moveCursor"})
#endif
type TreeViewRowActivatedCallback =
Gtk.TreePath.TreePath
-> Maybe Gtk.TreeViewColumn.TreeViewColumn
-> IO ()
type C_TreeViewRowActivatedCallback =
Ptr TreeView ->
Ptr Gtk.TreePath.TreePath ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TreeViewRowActivatedCallback :: C_TreeViewRowActivatedCallback -> IO (FunPtr C_TreeViewRowActivatedCallback)
wrap_TreeViewRowActivatedCallback ::
GObject a => (a -> TreeViewRowActivatedCallback) ->
C_TreeViewRowActivatedCallback
wrap_TreeViewRowActivatedCallback :: forall a.
GObject a =>
(a -> TreeViewRowActivatedCallback)
-> C_TreeViewRowActivatedCallback
wrap_TreeViewRowActivatedCallback a -> TreeViewRowActivatedCallback
gi'cb Ptr TreeView
gi'selfPtr Ptr TreePath
path Ptr TreeViewColumn
column Ptr ()
_ = do
Ptr TreePath -> (TreePath -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TreePath
path ((TreePath -> IO ()) -> IO ()) -> (TreePath -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \TreePath
path' -> do
maybeColumn <-
if Ptr TreeViewColumn
column Ptr TreeViewColumn -> Ptr TreeViewColumn -> Bool
forall a. Eq a => a -> a -> Bool
== Ptr TreeViewColumn
forall a. Ptr a
FP.nullPtr
then Maybe TreeViewColumn -> IO (Maybe TreeViewColumn)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TreeViewColumn
forall a. Maybe a
Nothing
else do
column' <- ((ManagedPtr TreeViewColumn -> TreeViewColumn)
-> Ptr TreeViewColumn -> IO TreeViewColumn
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TreeViewColumn -> TreeViewColumn
Gtk.TreeViewColumn.TreeViewColumn) Ptr TreeViewColumn
column
return $ Just column'
B.ManagedPtr.withNewObject gi'selfPtr $ \TreeView
gi'self -> a -> TreeViewRowActivatedCallback
gi'cb (TreeView -> a
forall a b. Coercible a b => a -> b
Coerce.coerce TreeView
gi'self) TreePath
path' Maybe TreeViewColumn
maybeColumn
onTreeViewRowActivated :: (IsTreeView a, MonadIO m) => a -> ((?self :: a) => TreeViewRowActivatedCallback) -> m SignalHandlerId
onTreeViewRowActivated :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a
-> ((?self::a) => TreeViewRowActivatedCallback)
-> m SignalHandlerId
onTreeViewRowActivated a
obj (?self::a) => TreeViewRowActivatedCallback
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 -> TreeViewRowActivatedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TreeViewRowActivatedCallback
TreeViewRowActivatedCallback
cb
let wrapped' :: C_TreeViewRowActivatedCallback
wrapped' = (a -> TreeViewRowActivatedCallback)
-> C_TreeViewRowActivatedCallback
forall a.
GObject a =>
(a -> TreeViewRowActivatedCallback)
-> C_TreeViewRowActivatedCallback
wrap_TreeViewRowActivatedCallback a -> TreeViewRowActivatedCallback
wrapped
wrapped'' <- C_TreeViewRowActivatedCallback
-> IO (FunPtr C_TreeViewRowActivatedCallback)
mk_TreeViewRowActivatedCallback C_TreeViewRowActivatedCallback
wrapped'
connectSignalFunPtr obj "row-activated" wrapped'' SignalConnectBefore Nothing
afterTreeViewRowActivated :: (IsTreeView a, MonadIO m) => a -> ((?self :: a) => TreeViewRowActivatedCallback) -> m SignalHandlerId
afterTreeViewRowActivated :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a
-> ((?self::a) => TreeViewRowActivatedCallback)
-> m SignalHandlerId
afterTreeViewRowActivated a
obj (?self::a) => TreeViewRowActivatedCallback
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 -> TreeViewRowActivatedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TreeViewRowActivatedCallback
TreeViewRowActivatedCallback
cb
let wrapped' :: C_TreeViewRowActivatedCallback
wrapped' = (a -> TreeViewRowActivatedCallback)
-> C_TreeViewRowActivatedCallback
forall a.
GObject a =>
(a -> TreeViewRowActivatedCallback)
-> C_TreeViewRowActivatedCallback
wrap_TreeViewRowActivatedCallback a -> TreeViewRowActivatedCallback
wrapped
wrapped'' <- C_TreeViewRowActivatedCallback
-> IO (FunPtr C_TreeViewRowActivatedCallback)
mk_TreeViewRowActivatedCallback C_TreeViewRowActivatedCallback
wrapped'
connectSignalFunPtr obj "row-activated" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TreeViewRowActivatedSignalInfo
instance SignalInfo TreeViewRowActivatedSignalInfo where
type HaskellCallbackType TreeViewRowActivatedSignalInfo = TreeViewRowActivatedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TreeViewRowActivatedCallback cb
cb'' <- mk_TreeViewRowActivatedCallback cb'
connectSignalFunPtr obj "row-activated" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView::row-activated"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:signal:rowActivated"})
#endif
type TreeViewRowCollapsedCallback =
Gtk.TreeIter.TreeIter
-> Gtk.TreePath.TreePath
-> IO ()
type C_TreeViewRowCollapsedCallback =
Ptr TreeView ->
Ptr Gtk.TreeIter.TreeIter ->
Ptr Gtk.TreePath.TreePath ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TreeViewRowCollapsedCallback :: C_TreeViewRowCollapsedCallback -> IO (FunPtr C_TreeViewRowCollapsedCallback)
wrap_TreeViewRowCollapsedCallback ::
GObject a => (a -> TreeViewRowCollapsedCallback) ->
C_TreeViewRowCollapsedCallback
wrap_TreeViewRowCollapsedCallback :: forall a.
GObject a =>
(a -> TreeViewRowCollapsedCallback)
-> C_TreeViewRowCollapsedCallback
wrap_TreeViewRowCollapsedCallback a -> TreeViewRowCollapsedCallback
gi'cb Ptr TreeView
gi'selfPtr Ptr TreeIter
iter Ptr TreePath
path Ptr ()
_ = do
Ptr TreeIter -> (TreeIter -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TreeIter
iter ((TreeIter -> IO ()) -> IO ()) -> (TreeIter -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \TreeIter
iter' -> do
Ptr TreePath -> (TreePath -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TreePath
path ((TreePath -> IO ()) -> IO ()) -> (TreePath -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \TreePath
path' -> do
Ptr TreeView -> (TreeView -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr TreeView
gi'selfPtr ((TreeView -> IO ()) -> IO ()) -> (TreeView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \TreeView
gi'self -> a -> TreeViewRowCollapsedCallback
gi'cb (TreeView -> a
forall a b. Coercible a b => a -> b
Coerce.coerce TreeView
gi'self) TreeIter
iter' TreePath
path'
onTreeViewRowCollapsed :: (IsTreeView a, MonadIO m) => a -> ((?self :: a) => TreeViewRowCollapsedCallback) -> m SignalHandlerId
onTreeViewRowCollapsed :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a
-> ((?self::a) => TreeViewRowCollapsedCallback)
-> m SignalHandlerId
onTreeViewRowCollapsed a
obj (?self::a) => TreeViewRowCollapsedCallback
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 -> TreeViewRowCollapsedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TreeViewRowCollapsedCallback
TreeViewRowCollapsedCallback
cb
let wrapped' :: C_TreeViewRowCollapsedCallback
wrapped' = (a -> TreeViewRowCollapsedCallback)
-> C_TreeViewRowCollapsedCallback
forall a.
GObject a =>
(a -> TreeViewRowCollapsedCallback)
-> C_TreeViewRowCollapsedCallback
wrap_TreeViewRowCollapsedCallback a -> TreeViewRowCollapsedCallback
wrapped
wrapped'' <- C_TreeViewRowCollapsedCallback
-> IO (FunPtr C_TreeViewRowCollapsedCallback)
mk_TreeViewRowCollapsedCallback C_TreeViewRowCollapsedCallback
wrapped'
connectSignalFunPtr obj "row-collapsed" wrapped'' SignalConnectBefore Nothing
afterTreeViewRowCollapsed :: (IsTreeView a, MonadIO m) => a -> ((?self :: a) => TreeViewRowCollapsedCallback) -> m SignalHandlerId
afterTreeViewRowCollapsed :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a
-> ((?self::a) => TreeViewRowCollapsedCallback)
-> m SignalHandlerId
afterTreeViewRowCollapsed a
obj (?self::a) => TreeViewRowCollapsedCallback
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 -> TreeViewRowCollapsedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TreeViewRowCollapsedCallback
TreeViewRowCollapsedCallback
cb
let wrapped' :: C_TreeViewRowCollapsedCallback
wrapped' = (a -> TreeViewRowCollapsedCallback)
-> C_TreeViewRowCollapsedCallback
forall a.
GObject a =>
(a -> TreeViewRowCollapsedCallback)
-> C_TreeViewRowCollapsedCallback
wrap_TreeViewRowCollapsedCallback a -> TreeViewRowCollapsedCallback
wrapped
wrapped'' <- C_TreeViewRowCollapsedCallback
-> IO (FunPtr C_TreeViewRowCollapsedCallback)
mk_TreeViewRowCollapsedCallback C_TreeViewRowCollapsedCallback
wrapped'
connectSignalFunPtr obj "row-collapsed" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TreeViewRowCollapsedSignalInfo
instance SignalInfo TreeViewRowCollapsedSignalInfo where
type HaskellCallbackType TreeViewRowCollapsedSignalInfo = TreeViewRowCollapsedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TreeViewRowCollapsedCallback cb
cb'' <- mk_TreeViewRowCollapsedCallback cb'
connectSignalFunPtr obj "row-collapsed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView::row-collapsed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:signal:rowCollapsed"})
#endif
type TreeViewRowExpandedCallback =
Gtk.TreeIter.TreeIter
-> Gtk.TreePath.TreePath
-> IO ()
type C_TreeViewRowExpandedCallback =
Ptr TreeView ->
Ptr Gtk.TreeIter.TreeIter ->
Ptr Gtk.TreePath.TreePath ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TreeViewRowExpandedCallback :: C_TreeViewRowExpandedCallback -> IO (FunPtr C_TreeViewRowExpandedCallback)
wrap_TreeViewRowExpandedCallback ::
GObject a => (a -> TreeViewRowExpandedCallback) ->
C_TreeViewRowExpandedCallback
wrap_TreeViewRowExpandedCallback :: forall a.
GObject a =>
(a -> TreeViewRowCollapsedCallback)
-> C_TreeViewRowCollapsedCallback
wrap_TreeViewRowExpandedCallback a -> TreeViewRowCollapsedCallback
gi'cb Ptr TreeView
gi'selfPtr Ptr TreeIter
iter Ptr TreePath
path Ptr ()
_ = do
Ptr TreeIter -> (TreeIter -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TreeIter
iter ((TreeIter -> IO ()) -> IO ()) -> (TreeIter -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \TreeIter
iter' -> do
Ptr TreePath -> (TreePath -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TreePath
path ((TreePath -> IO ()) -> IO ()) -> (TreePath -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \TreePath
path' -> do
Ptr TreeView -> (TreeView -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr TreeView
gi'selfPtr ((TreeView -> IO ()) -> IO ()) -> (TreeView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \TreeView
gi'self -> a -> TreeViewRowCollapsedCallback
gi'cb (TreeView -> a
forall a b. Coercible a b => a -> b
Coerce.coerce TreeView
gi'self) TreeIter
iter' TreePath
path'
onTreeViewRowExpanded :: (IsTreeView a, MonadIO m) => a -> ((?self :: a) => TreeViewRowExpandedCallback) -> m SignalHandlerId
onTreeViewRowExpanded :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a
-> ((?self::a) => TreeViewRowCollapsedCallback)
-> m SignalHandlerId
onTreeViewRowExpanded a
obj (?self::a) => TreeViewRowCollapsedCallback
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 -> TreeViewRowCollapsedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TreeViewRowCollapsedCallback
TreeViewRowCollapsedCallback
cb
let wrapped' :: C_TreeViewRowCollapsedCallback
wrapped' = (a -> TreeViewRowCollapsedCallback)
-> C_TreeViewRowCollapsedCallback
forall a.
GObject a =>
(a -> TreeViewRowCollapsedCallback)
-> C_TreeViewRowCollapsedCallback
wrap_TreeViewRowExpandedCallback a -> TreeViewRowCollapsedCallback
wrapped
wrapped'' <- C_TreeViewRowCollapsedCallback
-> IO (FunPtr C_TreeViewRowCollapsedCallback)
mk_TreeViewRowExpandedCallback C_TreeViewRowCollapsedCallback
wrapped'
connectSignalFunPtr obj "row-expanded" wrapped'' SignalConnectBefore Nothing
afterTreeViewRowExpanded :: (IsTreeView a, MonadIO m) => a -> ((?self :: a) => TreeViewRowExpandedCallback) -> m SignalHandlerId
afterTreeViewRowExpanded :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a
-> ((?self::a) => TreeViewRowCollapsedCallback)
-> m SignalHandlerId
afterTreeViewRowExpanded a
obj (?self::a) => TreeViewRowCollapsedCallback
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 -> TreeViewRowCollapsedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TreeViewRowCollapsedCallback
TreeViewRowCollapsedCallback
cb
let wrapped' :: C_TreeViewRowCollapsedCallback
wrapped' = (a -> TreeViewRowCollapsedCallback)
-> C_TreeViewRowCollapsedCallback
forall a.
GObject a =>
(a -> TreeViewRowCollapsedCallback)
-> C_TreeViewRowCollapsedCallback
wrap_TreeViewRowExpandedCallback a -> TreeViewRowCollapsedCallback
wrapped
wrapped'' <- C_TreeViewRowCollapsedCallback
-> IO (FunPtr C_TreeViewRowCollapsedCallback)
mk_TreeViewRowExpandedCallback C_TreeViewRowCollapsedCallback
wrapped'
connectSignalFunPtr obj "row-expanded" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TreeViewRowExpandedSignalInfo
instance SignalInfo TreeViewRowExpandedSignalInfo where
type HaskellCallbackType TreeViewRowExpandedSignalInfo = TreeViewRowExpandedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TreeViewRowExpandedCallback cb
cb'' <- mk_TreeViewRowExpandedCallback cb'
connectSignalFunPtr obj "row-expanded" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView::row-expanded"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:signal:rowExpanded"})
#endif
type TreeViewSelectAllCallback =
IO Bool
type C_TreeViewSelectAllCallback =
Ptr TreeView ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_TreeViewSelectAllCallback :: C_TreeViewSelectAllCallback -> IO (FunPtr C_TreeViewSelectAllCallback)
wrap_TreeViewSelectAllCallback ::
GObject a => (a -> TreeViewSelectAllCallback) ->
C_TreeViewSelectAllCallback
wrap_TreeViewSelectAllCallback :: forall a.
GObject a =>
(a -> IO Bool) -> C_TreeViewSelectAllCallback
wrap_TreeViewSelectAllCallback a -> IO Bool
gi'cb Ptr TreeView
gi'selfPtr Ptr ()
_ = do
result <- Ptr TreeView -> (TreeView -> IO Bool) -> IO Bool
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr TreeView
gi'selfPtr ((TreeView -> IO Bool) -> IO Bool)
-> (TreeView -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \TreeView
gi'self -> a -> IO Bool
gi'cb (TreeView -> a
forall a b. Coercible a b => a -> b
Coerce.coerce TreeView
gi'self)
let result' = (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
result
return result'
onTreeViewSelectAll :: (IsTreeView a, MonadIO m) => a -> ((?self :: a) => TreeViewSelectAllCallback) -> m SignalHandlerId
onTreeViewSelectAll :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> ((?self::a) => IO Bool) -> m SignalHandlerId
onTreeViewSelectAll a
obj (?self::a) => IO Bool
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 -> IO Bool
wrapped a
self = let ?self = a
?self::a
self in IO Bool
(?self::a) => IO Bool
cb
let wrapped' :: C_TreeViewSelectAllCallback
wrapped' = (a -> IO Bool) -> C_TreeViewSelectAllCallback
forall a.
GObject a =>
(a -> IO Bool) -> C_TreeViewSelectAllCallback
wrap_TreeViewSelectAllCallback a -> IO Bool
wrapped
wrapped'' <- C_TreeViewSelectAllCallback
-> IO (FunPtr C_TreeViewSelectAllCallback)
mk_TreeViewSelectAllCallback C_TreeViewSelectAllCallback
wrapped'
connectSignalFunPtr obj "select-all" wrapped'' SignalConnectBefore Nothing
afterTreeViewSelectAll :: (IsTreeView a, MonadIO m) => a -> ((?self :: a) => TreeViewSelectAllCallback) -> m SignalHandlerId
afterTreeViewSelectAll :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> ((?self::a) => IO Bool) -> m SignalHandlerId
afterTreeViewSelectAll a
obj (?self::a) => IO Bool
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 -> IO Bool
wrapped a
self = let ?self = a
?self::a
self in IO Bool
(?self::a) => IO Bool
cb
let wrapped' :: C_TreeViewSelectAllCallback
wrapped' = (a -> IO Bool) -> C_TreeViewSelectAllCallback
forall a.
GObject a =>
(a -> IO Bool) -> C_TreeViewSelectAllCallback
wrap_TreeViewSelectAllCallback a -> IO Bool
wrapped
wrapped'' <- C_TreeViewSelectAllCallback
-> IO (FunPtr C_TreeViewSelectAllCallback)
mk_TreeViewSelectAllCallback C_TreeViewSelectAllCallback
wrapped'
connectSignalFunPtr obj "select-all" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TreeViewSelectAllSignalInfo
instance SignalInfo TreeViewSelectAllSignalInfo where
type HaskellCallbackType TreeViewSelectAllSignalInfo = TreeViewSelectAllCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TreeViewSelectAllCallback cb
cb'' <- mk_TreeViewSelectAllCallback cb'
connectSignalFunPtr obj "select-all" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView::select-all"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:signal:selectAll"})
#endif
type TreeViewSelectCursorParentCallback =
IO Bool
type C_TreeViewSelectCursorParentCallback =
Ptr TreeView ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_TreeViewSelectCursorParentCallback :: C_TreeViewSelectCursorParentCallback -> IO (FunPtr C_TreeViewSelectCursorParentCallback)
wrap_TreeViewSelectCursorParentCallback ::
GObject a => (a -> TreeViewSelectCursorParentCallback) ->
C_TreeViewSelectCursorParentCallback
wrap_TreeViewSelectCursorParentCallback :: forall a.
GObject a =>
(a -> IO Bool) -> C_TreeViewSelectAllCallback
wrap_TreeViewSelectCursorParentCallback a -> IO Bool
gi'cb Ptr TreeView
gi'selfPtr Ptr ()
_ = do
result <- Ptr TreeView -> (TreeView -> IO Bool) -> IO Bool
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr TreeView
gi'selfPtr ((TreeView -> IO Bool) -> IO Bool)
-> (TreeView -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \TreeView
gi'self -> a -> IO Bool
gi'cb (TreeView -> a
forall a b. Coercible a b => a -> b
Coerce.coerce TreeView
gi'self)
let result' = (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
result
return result'
onTreeViewSelectCursorParent :: (IsTreeView a, MonadIO m) => a -> ((?self :: a) => TreeViewSelectCursorParentCallback) -> m SignalHandlerId
onTreeViewSelectCursorParent :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> ((?self::a) => IO Bool) -> m SignalHandlerId
onTreeViewSelectCursorParent a
obj (?self::a) => IO Bool
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 -> IO Bool
wrapped a
self = let ?self = a
?self::a
self in IO Bool
(?self::a) => IO Bool
cb
let wrapped' :: C_TreeViewSelectAllCallback
wrapped' = (a -> IO Bool) -> C_TreeViewSelectAllCallback
forall a.
GObject a =>
(a -> IO Bool) -> C_TreeViewSelectAllCallback
wrap_TreeViewSelectCursorParentCallback a -> IO Bool
wrapped
wrapped'' <- C_TreeViewSelectAllCallback
-> IO (FunPtr C_TreeViewSelectAllCallback)
mk_TreeViewSelectCursorParentCallback C_TreeViewSelectAllCallback
wrapped'
connectSignalFunPtr obj "select-cursor-parent" wrapped'' SignalConnectBefore Nothing
afterTreeViewSelectCursorParent :: (IsTreeView a, MonadIO m) => a -> ((?self :: a) => TreeViewSelectCursorParentCallback) -> m SignalHandlerId
afterTreeViewSelectCursorParent :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> ((?self::a) => IO Bool) -> m SignalHandlerId
afterTreeViewSelectCursorParent a
obj (?self::a) => IO Bool
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 -> IO Bool
wrapped a
self = let ?self = a
?self::a
self in IO Bool
(?self::a) => IO Bool
cb
let wrapped' :: C_TreeViewSelectAllCallback
wrapped' = (a -> IO Bool) -> C_TreeViewSelectAllCallback
forall a.
GObject a =>
(a -> IO Bool) -> C_TreeViewSelectAllCallback
wrap_TreeViewSelectCursorParentCallback a -> IO Bool
wrapped
wrapped'' <- C_TreeViewSelectAllCallback
-> IO (FunPtr C_TreeViewSelectAllCallback)
mk_TreeViewSelectCursorParentCallback C_TreeViewSelectAllCallback
wrapped'
connectSignalFunPtr obj "select-cursor-parent" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TreeViewSelectCursorParentSignalInfo
instance SignalInfo TreeViewSelectCursorParentSignalInfo where
type HaskellCallbackType TreeViewSelectCursorParentSignalInfo = TreeViewSelectCursorParentCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TreeViewSelectCursorParentCallback cb
cb'' <- mk_TreeViewSelectCursorParentCallback cb'
connectSignalFunPtr obj "select-cursor-parent" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView::select-cursor-parent"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:signal:selectCursorParent"})
#endif
type TreeViewSelectCursorRowCallback =
Bool
-> IO Bool
type C_TreeViewSelectCursorRowCallback =
Ptr TreeView ->
CInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_TreeViewSelectCursorRowCallback :: C_TreeViewSelectCursorRowCallback -> IO (FunPtr C_TreeViewSelectCursorRowCallback)
wrap_TreeViewSelectCursorRowCallback ::
GObject a => (a -> TreeViewSelectCursorRowCallback) ->
C_TreeViewSelectCursorRowCallback
wrap_TreeViewSelectCursorRowCallback :: forall a.
GObject a =>
(a -> TreeViewSelectCursorRowCallback)
-> C_TreeViewSelectCursorRowCallback
wrap_TreeViewSelectCursorRowCallback a -> TreeViewSelectCursorRowCallback
gi'cb Ptr TreeView
gi'selfPtr CInt
object Ptr ()
_ = do
let object' :: Bool
object' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
object
result <- Ptr TreeView -> (TreeView -> IO Bool) -> IO Bool
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr TreeView
gi'selfPtr ((TreeView -> IO Bool) -> IO Bool)
-> (TreeView -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \TreeView
gi'self -> a -> TreeViewSelectCursorRowCallback
gi'cb (TreeView -> a
forall a b. Coercible a b => a -> b
Coerce.coerce TreeView
gi'self) Bool
object'
let result' = (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
result
return result'
onTreeViewSelectCursorRow :: (IsTreeView a, MonadIO m) => a -> ((?self :: a) => TreeViewSelectCursorRowCallback) -> m SignalHandlerId
onTreeViewSelectCursorRow :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a
-> ((?self::a) => TreeViewSelectCursorRowCallback)
-> m SignalHandlerId
onTreeViewSelectCursorRow a
obj (?self::a) => TreeViewSelectCursorRowCallback
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 -> TreeViewSelectCursorRowCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TreeViewSelectCursorRowCallback
TreeViewSelectCursorRowCallback
cb
let wrapped' :: C_TreeViewSelectCursorRowCallback
wrapped' = (a -> TreeViewSelectCursorRowCallback)
-> C_TreeViewSelectCursorRowCallback
forall a.
GObject a =>
(a -> TreeViewSelectCursorRowCallback)
-> C_TreeViewSelectCursorRowCallback
wrap_TreeViewSelectCursorRowCallback a -> TreeViewSelectCursorRowCallback
wrapped
wrapped'' <- C_TreeViewSelectCursorRowCallback
-> IO (FunPtr C_TreeViewSelectCursorRowCallback)
mk_TreeViewSelectCursorRowCallback C_TreeViewSelectCursorRowCallback
wrapped'
connectSignalFunPtr obj "select-cursor-row" wrapped'' SignalConnectBefore Nothing
afterTreeViewSelectCursorRow :: (IsTreeView a, MonadIO m) => a -> ((?self :: a) => TreeViewSelectCursorRowCallback) -> m SignalHandlerId
afterTreeViewSelectCursorRow :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a
-> ((?self::a) => TreeViewSelectCursorRowCallback)
-> m SignalHandlerId
afterTreeViewSelectCursorRow a
obj (?self::a) => TreeViewSelectCursorRowCallback
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 -> TreeViewSelectCursorRowCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TreeViewSelectCursorRowCallback
TreeViewSelectCursorRowCallback
cb
let wrapped' :: C_TreeViewSelectCursorRowCallback
wrapped' = (a -> TreeViewSelectCursorRowCallback)
-> C_TreeViewSelectCursorRowCallback
forall a.
GObject a =>
(a -> TreeViewSelectCursorRowCallback)
-> C_TreeViewSelectCursorRowCallback
wrap_TreeViewSelectCursorRowCallback a -> TreeViewSelectCursorRowCallback
wrapped
wrapped'' <- C_TreeViewSelectCursorRowCallback
-> IO (FunPtr C_TreeViewSelectCursorRowCallback)
mk_TreeViewSelectCursorRowCallback C_TreeViewSelectCursorRowCallback
wrapped'
connectSignalFunPtr obj "select-cursor-row" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TreeViewSelectCursorRowSignalInfo
instance SignalInfo TreeViewSelectCursorRowSignalInfo where
type HaskellCallbackType TreeViewSelectCursorRowSignalInfo = TreeViewSelectCursorRowCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TreeViewSelectCursorRowCallback cb
cb'' <- mk_TreeViewSelectCursorRowCallback cb'
connectSignalFunPtr obj "select-cursor-row" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView::select-cursor-row"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:signal:selectCursorRow"})
#endif
type TreeViewStartInteractiveSearchCallback =
IO Bool
type C_TreeViewStartInteractiveSearchCallback =
Ptr TreeView ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_TreeViewStartInteractiveSearchCallback :: C_TreeViewStartInteractiveSearchCallback -> IO (FunPtr C_TreeViewStartInteractiveSearchCallback)
wrap_TreeViewStartInteractiveSearchCallback ::
GObject a => (a -> TreeViewStartInteractiveSearchCallback) ->
C_TreeViewStartInteractiveSearchCallback
wrap_TreeViewStartInteractiveSearchCallback :: forall a.
GObject a =>
(a -> IO Bool) -> C_TreeViewSelectAllCallback
wrap_TreeViewStartInteractiveSearchCallback a -> IO Bool
gi'cb Ptr TreeView
gi'selfPtr Ptr ()
_ = do
result <- Ptr TreeView -> (TreeView -> IO Bool) -> IO Bool
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr TreeView
gi'selfPtr ((TreeView -> IO Bool) -> IO Bool)
-> (TreeView -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \TreeView
gi'self -> a -> IO Bool
gi'cb (TreeView -> a
forall a b. Coercible a b => a -> b
Coerce.coerce TreeView
gi'self)
let result' = (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
result
return result'
onTreeViewStartInteractiveSearch :: (IsTreeView a, MonadIO m) => a -> ((?self :: a) => TreeViewStartInteractiveSearchCallback) -> m SignalHandlerId
onTreeViewStartInteractiveSearch :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> ((?self::a) => IO Bool) -> m SignalHandlerId
onTreeViewStartInteractiveSearch a
obj (?self::a) => IO Bool
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 -> IO Bool
wrapped a
self = let ?self = a
?self::a
self in IO Bool
(?self::a) => IO Bool
cb
let wrapped' :: C_TreeViewSelectAllCallback
wrapped' = (a -> IO Bool) -> C_TreeViewSelectAllCallback
forall a.
GObject a =>
(a -> IO Bool) -> C_TreeViewSelectAllCallback
wrap_TreeViewStartInteractiveSearchCallback a -> IO Bool
wrapped
wrapped'' <- C_TreeViewSelectAllCallback
-> IO (FunPtr C_TreeViewSelectAllCallback)
mk_TreeViewStartInteractiveSearchCallback C_TreeViewSelectAllCallback
wrapped'
connectSignalFunPtr obj "start-interactive-search" wrapped'' SignalConnectBefore Nothing
afterTreeViewStartInteractiveSearch :: (IsTreeView a, MonadIO m) => a -> ((?self :: a) => TreeViewStartInteractiveSearchCallback) -> m SignalHandlerId
afterTreeViewStartInteractiveSearch :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> ((?self::a) => IO Bool) -> m SignalHandlerId
afterTreeViewStartInteractiveSearch a
obj (?self::a) => IO Bool
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 -> IO Bool
wrapped a
self = let ?self = a
?self::a
self in IO Bool
(?self::a) => IO Bool
cb
let wrapped' :: C_TreeViewSelectAllCallback
wrapped' = (a -> IO Bool) -> C_TreeViewSelectAllCallback
forall a.
GObject a =>
(a -> IO Bool) -> C_TreeViewSelectAllCallback
wrap_TreeViewStartInteractiveSearchCallback a -> IO Bool
wrapped
wrapped'' <- C_TreeViewSelectAllCallback
-> IO (FunPtr C_TreeViewSelectAllCallback)
mk_TreeViewStartInteractiveSearchCallback C_TreeViewSelectAllCallback
wrapped'
connectSignalFunPtr obj "start-interactive-search" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TreeViewStartInteractiveSearchSignalInfo
instance SignalInfo TreeViewStartInteractiveSearchSignalInfo where
type HaskellCallbackType TreeViewStartInteractiveSearchSignalInfo = TreeViewStartInteractiveSearchCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TreeViewStartInteractiveSearchCallback cb
cb'' <- mk_TreeViewStartInteractiveSearchCallback cb'
connectSignalFunPtr obj "start-interactive-search" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView::start-interactive-search"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:signal:startInteractiveSearch"})
#endif
type TreeViewTestCollapseRowCallback =
Gtk.TreeIter.TreeIter
-> Gtk.TreePath.TreePath
-> IO Bool
type C_TreeViewTestCollapseRowCallback =
Ptr TreeView ->
Ptr Gtk.TreeIter.TreeIter ->
Ptr Gtk.TreePath.TreePath ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_TreeViewTestCollapseRowCallback :: C_TreeViewTestCollapseRowCallback -> IO (FunPtr C_TreeViewTestCollapseRowCallback)
wrap_TreeViewTestCollapseRowCallback ::
GObject a => (a -> TreeViewTestCollapseRowCallback) ->
C_TreeViewTestCollapseRowCallback
wrap_TreeViewTestCollapseRowCallback :: forall a.
GObject a =>
(a -> TreeViewTestCollapseRowCallback)
-> C_TreeViewTestCollapseRowCallback
wrap_TreeViewTestCollapseRowCallback a -> TreeViewTestCollapseRowCallback
gi'cb Ptr TreeView
gi'selfPtr Ptr TreeIter
iter Ptr TreePath
path Ptr ()
_ = do
Ptr TreeIter -> (TreeIter -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TreeIter
iter ((TreeIter -> IO CInt) -> IO CInt)
-> (TreeIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \TreeIter
iter' -> do
Ptr TreePath -> (TreePath -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TreePath
path ((TreePath -> IO CInt) -> IO CInt)
-> (TreePath -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \TreePath
path' -> do
result <- Ptr TreeView -> (TreeView -> IO Bool) -> IO Bool
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr TreeView
gi'selfPtr ((TreeView -> IO Bool) -> IO Bool)
-> (TreeView -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \TreeView
gi'self -> a -> TreeViewTestCollapseRowCallback
gi'cb (TreeView -> a
forall a b. Coercible a b => a -> b
Coerce.coerce TreeView
gi'self) TreeIter
iter' TreePath
path'
let result' = (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
result
return result'
onTreeViewTestCollapseRow :: (IsTreeView a, MonadIO m) => a -> ((?self :: a) => TreeViewTestCollapseRowCallback) -> m SignalHandlerId
onTreeViewTestCollapseRow :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a
-> ((?self::a) => TreeViewTestCollapseRowCallback)
-> m SignalHandlerId
onTreeViewTestCollapseRow a
obj (?self::a) => TreeViewTestCollapseRowCallback
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 -> TreeViewTestCollapseRowCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TreeViewTestCollapseRowCallback
TreeViewTestCollapseRowCallback
cb
let wrapped' :: C_TreeViewTestCollapseRowCallback
wrapped' = (a -> TreeViewTestCollapseRowCallback)
-> C_TreeViewTestCollapseRowCallback
forall a.
GObject a =>
(a -> TreeViewTestCollapseRowCallback)
-> C_TreeViewTestCollapseRowCallback
wrap_TreeViewTestCollapseRowCallback a -> TreeViewTestCollapseRowCallback
wrapped
wrapped'' <- C_TreeViewTestCollapseRowCallback
-> IO (FunPtr C_TreeViewTestCollapseRowCallback)
mk_TreeViewTestCollapseRowCallback C_TreeViewTestCollapseRowCallback
wrapped'
connectSignalFunPtr obj "test-collapse-row" wrapped'' SignalConnectBefore Nothing
afterTreeViewTestCollapseRow :: (IsTreeView a, MonadIO m) => a -> ((?self :: a) => TreeViewTestCollapseRowCallback) -> m SignalHandlerId
afterTreeViewTestCollapseRow :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a
-> ((?self::a) => TreeViewTestCollapseRowCallback)
-> m SignalHandlerId
afterTreeViewTestCollapseRow a
obj (?self::a) => TreeViewTestCollapseRowCallback
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 -> TreeViewTestCollapseRowCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TreeViewTestCollapseRowCallback
TreeViewTestCollapseRowCallback
cb
let wrapped' :: C_TreeViewTestCollapseRowCallback
wrapped' = (a -> TreeViewTestCollapseRowCallback)
-> C_TreeViewTestCollapseRowCallback
forall a.
GObject a =>
(a -> TreeViewTestCollapseRowCallback)
-> C_TreeViewTestCollapseRowCallback
wrap_TreeViewTestCollapseRowCallback a -> TreeViewTestCollapseRowCallback
wrapped
wrapped'' <- C_TreeViewTestCollapseRowCallback
-> IO (FunPtr C_TreeViewTestCollapseRowCallback)
mk_TreeViewTestCollapseRowCallback C_TreeViewTestCollapseRowCallback
wrapped'
connectSignalFunPtr obj "test-collapse-row" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TreeViewTestCollapseRowSignalInfo
instance SignalInfo TreeViewTestCollapseRowSignalInfo where
type HaskellCallbackType TreeViewTestCollapseRowSignalInfo = TreeViewTestCollapseRowCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TreeViewTestCollapseRowCallback cb
cb'' <- mk_TreeViewTestCollapseRowCallback cb'
connectSignalFunPtr obj "test-collapse-row" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView::test-collapse-row"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:signal:testCollapseRow"})
#endif
type TreeViewTestExpandRowCallback =
Gtk.TreeIter.TreeIter
-> Gtk.TreePath.TreePath
-> IO Bool
type C_TreeViewTestExpandRowCallback =
Ptr TreeView ->
Ptr Gtk.TreeIter.TreeIter ->
Ptr Gtk.TreePath.TreePath ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_TreeViewTestExpandRowCallback :: C_TreeViewTestExpandRowCallback -> IO (FunPtr C_TreeViewTestExpandRowCallback)
wrap_TreeViewTestExpandRowCallback ::
GObject a => (a -> TreeViewTestExpandRowCallback) ->
C_TreeViewTestExpandRowCallback
wrap_TreeViewTestExpandRowCallback :: forall a.
GObject a =>
(a -> TreeViewTestCollapseRowCallback)
-> C_TreeViewTestCollapseRowCallback
wrap_TreeViewTestExpandRowCallback a -> TreeViewTestCollapseRowCallback
gi'cb Ptr TreeView
gi'selfPtr Ptr TreeIter
iter Ptr TreePath
path Ptr ()
_ = do
Ptr TreeIter -> (TreeIter -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TreeIter
iter ((TreeIter -> IO CInt) -> IO CInt)
-> (TreeIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \TreeIter
iter' -> do
Ptr TreePath -> (TreePath -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr TreePath
path ((TreePath -> IO CInt) -> IO CInt)
-> (TreePath -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \TreePath
path' -> do
result <- Ptr TreeView -> (TreeView -> IO Bool) -> IO Bool
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr TreeView
gi'selfPtr ((TreeView -> IO Bool) -> IO Bool)
-> (TreeView -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \TreeView
gi'self -> a -> TreeViewTestCollapseRowCallback
gi'cb (TreeView -> a
forall a b. Coercible a b => a -> b
Coerce.coerce TreeView
gi'self) TreeIter
iter' TreePath
path'
let result' = (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
result
return result'
onTreeViewTestExpandRow :: (IsTreeView a, MonadIO m) => a -> ((?self :: a) => TreeViewTestExpandRowCallback) -> m SignalHandlerId
onTreeViewTestExpandRow :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a
-> ((?self::a) => TreeViewTestCollapseRowCallback)
-> m SignalHandlerId
onTreeViewTestExpandRow a
obj (?self::a) => TreeViewTestCollapseRowCallback
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 -> TreeViewTestCollapseRowCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TreeViewTestCollapseRowCallback
TreeViewTestCollapseRowCallback
cb
let wrapped' :: C_TreeViewTestCollapseRowCallback
wrapped' = (a -> TreeViewTestCollapseRowCallback)
-> C_TreeViewTestCollapseRowCallback
forall a.
GObject a =>
(a -> TreeViewTestCollapseRowCallback)
-> C_TreeViewTestCollapseRowCallback
wrap_TreeViewTestExpandRowCallback a -> TreeViewTestCollapseRowCallback
wrapped
wrapped'' <- C_TreeViewTestCollapseRowCallback
-> IO (FunPtr C_TreeViewTestCollapseRowCallback)
mk_TreeViewTestExpandRowCallback C_TreeViewTestCollapseRowCallback
wrapped'
connectSignalFunPtr obj "test-expand-row" wrapped'' SignalConnectBefore Nothing
afterTreeViewTestExpandRow :: (IsTreeView a, MonadIO m) => a -> ((?self :: a) => TreeViewTestExpandRowCallback) -> m SignalHandlerId
afterTreeViewTestExpandRow :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a
-> ((?self::a) => TreeViewTestCollapseRowCallback)
-> m SignalHandlerId
afterTreeViewTestExpandRow a
obj (?self::a) => TreeViewTestCollapseRowCallback
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 -> TreeViewTestCollapseRowCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TreeViewTestCollapseRowCallback
TreeViewTestCollapseRowCallback
cb
let wrapped' :: C_TreeViewTestCollapseRowCallback
wrapped' = (a -> TreeViewTestCollapseRowCallback)
-> C_TreeViewTestCollapseRowCallback
forall a.
GObject a =>
(a -> TreeViewTestCollapseRowCallback)
-> C_TreeViewTestCollapseRowCallback
wrap_TreeViewTestExpandRowCallback a -> TreeViewTestCollapseRowCallback
wrapped
wrapped'' <- C_TreeViewTestCollapseRowCallback
-> IO (FunPtr C_TreeViewTestCollapseRowCallback)
mk_TreeViewTestExpandRowCallback C_TreeViewTestCollapseRowCallback
wrapped'
connectSignalFunPtr obj "test-expand-row" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TreeViewTestExpandRowSignalInfo
instance SignalInfo TreeViewTestExpandRowSignalInfo where
type HaskellCallbackType TreeViewTestExpandRowSignalInfo = TreeViewTestExpandRowCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TreeViewTestExpandRowCallback cb
cb'' <- mk_TreeViewTestExpandRowCallback cb'
connectSignalFunPtr obj "test-expand-row" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView::test-expand-row"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:signal:testExpandRow"})
#endif
type TreeViewToggleCursorRowCallback =
IO Bool
type C_TreeViewToggleCursorRowCallback =
Ptr TreeView ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_TreeViewToggleCursorRowCallback :: C_TreeViewToggleCursorRowCallback -> IO (FunPtr C_TreeViewToggleCursorRowCallback)
wrap_TreeViewToggleCursorRowCallback ::
GObject a => (a -> TreeViewToggleCursorRowCallback) ->
C_TreeViewToggleCursorRowCallback
wrap_TreeViewToggleCursorRowCallback :: forall a.
GObject a =>
(a -> IO Bool) -> C_TreeViewSelectAllCallback
wrap_TreeViewToggleCursorRowCallback a -> IO Bool
gi'cb Ptr TreeView
gi'selfPtr Ptr ()
_ = do
result <- Ptr TreeView -> (TreeView -> IO Bool) -> IO Bool
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr TreeView
gi'selfPtr ((TreeView -> IO Bool) -> IO Bool)
-> (TreeView -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \TreeView
gi'self -> a -> IO Bool
gi'cb (TreeView -> a
forall a b. Coercible a b => a -> b
Coerce.coerce TreeView
gi'self)
let result' = (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
result
return result'
onTreeViewToggleCursorRow :: (IsTreeView a, MonadIO m) => a -> ((?self :: a) => TreeViewToggleCursorRowCallback) -> m SignalHandlerId
onTreeViewToggleCursorRow :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> ((?self::a) => IO Bool) -> m SignalHandlerId
onTreeViewToggleCursorRow a
obj (?self::a) => IO Bool
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 -> IO Bool
wrapped a
self = let ?self = a
?self::a
self in IO Bool
(?self::a) => IO Bool
cb
let wrapped' :: C_TreeViewSelectAllCallback
wrapped' = (a -> IO Bool) -> C_TreeViewSelectAllCallback
forall a.
GObject a =>
(a -> IO Bool) -> C_TreeViewSelectAllCallback
wrap_TreeViewToggleCursorRowCallback a -> IO Bool
wrapped
wrapped'' <- C_TreeViewSelectAllCallback
-> IO (FunPtr C_TreeViewSelectAllCallback)
mk_TreeViewToggleCursorRowCallback C_TreeViewSelectAllCallback
wrapped'
connectSignalFunPtr obj "toggle-cursor-row" wrapped'' SignalConnectBefore Nothing
afterTreeViewToggleCursorRow :: (IsTreeView a, MonadIO m) => a -> ((?self :: a) => TreeViewToggleCursorRowCallback) -> m SignalHandlerId
afterTreeViewToggleCursorRow :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> ((?self::a) => IO Bool) -> m SignalHandlerId
afterTreeViewToggleCursorRow a
obj (?self::a) => IO Bool
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 -> IO Bool
wrapped a
self = let ?self = a
?self::a
self in IO Bool
(?self::a) => IO Bool
cb
let wrapped' :: C_TreeViewSelectAllCallback
wrapped' = (a -> IO Bool) -> C_TreeViewSelectAllCallback
forall a.
GObject a =>
(a -> IO Bool) -> C_TreeViewSelectAllCallback
wrap_TreeViewToggleCursorRowCallback a -> IO Bool
wrapped
wrapped'' <- C_TreeViewSelectAllCallback
-> IO (FunPtr C_TreeViewSelectAllCallback)
mk_TreeViewToggleCursorRowCallback C_TreeViewSelectAllCallback
wrapped'
connectSignalFunPtr obj "toggle-cursor-row" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TreeViewToggleCursorRowSignalInfo
instance SignalInfo TreeViewToggleCursorRowSignalInfo where
type HaskellCallbackType TreeViewToggleCursorRowSignalInfo = TreeViewToggleCursorRowCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TreeViewToggleCursorRowCallback cb
cb'' <- mk_TreeViewToggleCursorRowCallback cb'
connectSignalFunPtr obj "toggle-cursor-row" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView::toggle-cursor-row"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:signal:toggleCursorRow"})
#endif
type TreeViewUnselectAllCallback =
IO Bool
type C_TreeViewUnselectAllCallback =
Ptr TreeView ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_TreeViewUnselectAllCallback :: C_TreeViewUnselectAllCallback -> IO (FunPtr C_TreeViewUnselectAllCallback)
wrap_TreeViewUnselectAllCallback ::
GObject a => (a -> TreeViewUnselectAllCallback) ->
C_TreeViewUnselectAllCallback
wrap_TreeViewUnselectAllCallback :: forall a.
GObject a =>
(a -> IO Bool) -> C_TreeViewSelectAllCallback
wrap_TreeViewUnselectAllCallback a -> IO Bool
gi'cb Ptr TreeView
gi'selfPtr Ptr ()
_ = do
result <- Ptr TreeView -> (TreeView -> IO Bool) -> IO Bool
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr TreeView
gi'selfPtr ((TreeView -> IO Bool) -> IO Bool)
-> (TreeView -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \TreeView
gi'self -> a -> IO Bool
gi'cb (TreeView -> a
forall a b. Coercible a b => a -> b
Coerce.coerce TreeView
gi'self)
let result' = (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
result
return result'
onTreeViewUnselectAll :: (IsTreeView a, MonadIO m) => a -> ((?self :: a) => TreeViewUnselectAllCallback) -> m SignalHandlerId
onTreeViewUnselectAll :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> ((?self::a) => IO Bool) -> m SignalHandlerId
onTreeViewUnselectAll a
obj (?self::a) => IO Bool
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 -> IO Bool
wrapped a
self = let ?self = a
?self::a
self in IO Bool
(?self::a) => IO Bool
cb
let wrapped' :: C_TreeViewSelectAllCallback
wrapped' = (a -> IO Bool) -> C_TreeViewSelectAllCallback
forall a.
GObject a =>
(a -> IO Bool) -> C_TreeViewSelectAllCallback
wrap_TreeViewUnselectAllCallback a -> IO Bool
wrapped
wrapped'' <- C_TreeViewSelectAllCallback
-> IO (FunPtr C_TreeViewSelectAllCallback)
mk_TreeViewUnselectAllCallback C_TreeViewSelectAllCallback
wrapped'
connectSignalFunPtr obj "unselect-all" wrapped'' SignalConnectBefore Nothing
afterTreeViewUnselectAll :: (IsTreeView a, MonadIO m) => a -> ((?self :: a) => TreeViewUnselectAllCallback) -> m SignalHandlerId
afterTreeViewUnselectAll :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> ((?self::a) => IO Bool) -> m SignalHandlerId
afterTreeViewUnselectAll a
obj (?self::a) => IO Bool
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 -> IO Bool
wrapped a
self = let ?self = a
?self::a
self in IO Bool
(?self::a) => IO Bool
cb
let wrapped' :: C_TreeViewSelectAllCallback
wrapped' = (a -> IO Bool) -> C_TreeViewSelectAllCallback
forall a.
GObject a =>
(a -> IO Bool) -> C_TreeViewSelectAllCallback
wrap_TreeViewUnselectAllCallback a -> IO Bool
wrapped
wrapped'' <- C_TreeViewSelectAllCallback
-> IO (FunPtr C_TreeViewSelectAllCallback)
mk_TreeViewUnselectAllCallback C_TreeViewSelectAllCallback
wrapped'
connectSignalFunPtr obj "unselect-all" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TreeViewUnselectAllSignalInfo
instance SignalInfo TreeViewUnselectAllSignalInfo where
type HaskellCallbackType TreeViewUnselectAllSignalInfo = TreeViewUnselectAllCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TreeViewUnselectAllCallback cb
cb'' <- mk_TreeViewUnselectAllCallback cb'
connectSignalFunPtr obj "unselect-all" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView::unselect-all"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:signal:unselectAll"})
#endif
getTreeViewActivateOnSingleClick :: (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewActivateOnSingleClick :: forall (m :: * -> *) o. (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewActivateOnSingleClick 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
"activate-on-single-click"
setTreeViewActivateOnSingleClick :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
setTreeViewActivateOnSingleClick :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> Bool -> m ()
setTreeViewActivateOnSingleClick 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
"activate-on-single-click" Bool
val
constructTreeViewActivateOnSingleClick :: (IsTreeView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTreeViewActivateOnSingleClick :: forall o (m :: * -> *).
(IsTreeView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTreeViewActivateOnSingleClick 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
"activate-on-single-click" Bool
val
#if defined(ENABLE_OVERLOADING)
data TreeViewActivateOnSingleClickPropertyInfo
instance AttrInfo TreeViewActivateOnSingleClickPropertyInfo where
type AttrAllowedOps TreeViewActivateOnSingleClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewActivateOnSingleClickPropertyInfo = IsTreeView
type AttrSetTypeConstraint TreeViewActivateOnSingleClickPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TreeViewActivateOnSingleClickPropertyInfo = (~) Bool
type AttrTransferType TreeViewActivateOnSingleClickPropertyInfo = Bool
type AttrGetType TreeViewActivateOnSingleClickPropertyInfo = Bool
type AttrLabel TreeViewActivateOnSingleClickPropertyInfo = "activate-on-single-click"
type AttrOrigin TreeViewActivateOnSingleClickPropertyInfo = TreeView
attrGet = getTreeViewActivateOnSingleClick
attrSet = setTreeViewActivateOnSingleClick
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewActivateOnSingleClick
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.activateOnSingleClick"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:attr:activateOnSingleClick"
})
#endif
getTreeViewEnableGridLines :: (MonadIO m, IsTreeView o) => o -> m Gtk.Enums.TreeViewGridLines
getTreeViewEnableGridLines :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> m TreeViewGridLines
getTreeViewEnableGridLines o
obj = IO TreeViewGridLines -> m TreeViewGridLines
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO TreeViewGridLines -> m TreeViewGridLines)
-> IO TreeViewGridLines -> m TreeViewGridLines
forall a b. (a -> b) -> a -> b
$ o -> String -> IO TreeViewGridLines
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"enable-grid-lines"
setTreeViewEnableGridLines :: (MonadIO m, IsTreeView o) => o -> Gtk.Enums.TreeViewGridLines -> m ()
setTreeViewEnableGridLines :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> TreeViewGridLines -> m ()
setTreeViewEnableGridLines o
obj TreeViewGridLines
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 -> TreeViewGridLines -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"enable-grid-lines" TreeViewGridLines
val
constructTreeViewEnableGridLines :: (IsTreeView o, MIO.MonadIO m) => Gtk.Enums.TreeViewGridLines -> m (GValueConstruct o)
constructTreeViewEnableGridLines :: forall o (m :: * -> *).
(IsTreeView o, MonadIO m) =>
TreeViewGridLines -> m (GValueConstruct o)
constructTreeViewEnableGridLines TreeViewGridLines
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 -> TreeViewGridLines -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"enable-grid-lines" TreeViewGridLines
val
#if defined(ENABLE_OVERLOADING)
data TreeViewEnableGridLinesPropertyInfo
instance AttrInfo TreeViewEnableGridLinesPropertyInfo where
type AttrAllowedOps TreeViewEnableGridLinesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewEnableGridLinesPropertyInfo = IsTreeView
type AttrSetTypeConstraint TreeViewEnableGridLinesPropertyInfo = (~) Gtk.Enums.TreeViewGridLines
type AttrTransferTypeConstraint TreeViewEnableGridLinesPropertyInfo = (~) Gtk.Enums.TreeViewGridLines
type AttrTransferType TreeViewEnableGridLinesPropertyInfo = Gtk.Enums.TreeViewGridLines
type AttrGetType TreeViewEnableGridLinesPropertyInfo = Gtk.Enums.TreeViewGridLines
type AttrLabel TreeViewEnableGridLinesPropertyInfo = "enable-grid-lines"
type AttrOrigin TreeViewEnableGridLinesPropertyInfo = TreeView
attrGet = getTreeViewEnableGridLines
attrSet = setTreeViewEnableGridLines
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewEnableGridLines
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.enableGridLines"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:attr:enableGridLines"
})
#endif
getTreeViewEnableSearch :: (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewEnableSearch :: forall (m :: * -> *) o. (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewEnableSearch 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-search"
setTreeViewEnableSearch :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
setTreeViewEnableSearch :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> Bool -> m ()
setTreeViewEnableSearch 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-search" Bool
val
constructTreeViewEnableSearch :: (IsTreeView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTreeViewEnableSearch :: forall o (m :: * -> *).
(IsTreeView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTreeViewEnableSearch 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-search" Bool
val
#if defined(ENABLE_OVERLOADING)
data TreeViewEnableSearchPropertyInfo
instance AttrInfo TreeViewEnableSearchPropertyInfo where
type AttrAllowedOps TreeViewEnableSearchPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewEnableSearchPropertyInfo = IsTreeView
type AttrSetTypeConstraint TreeViewEnableSearchPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TreeViewEnableSearchPropertyInfo = (~) Bool
type AttrTransferType TreeViewEnableSearchPropertyInfo = Bool
type AttrGetType TreeViewEnableSearchPropertyInfo = Bool
type AttrLabel TreeViewEnableSearchPropertyInfo = "enable-search"
type AttrOrigin TreeViewEnableSearchPropertyInfo = TreeView
attrGet = getTreeViewEnableSearch
attrSet = setTreeViewEnableSearch
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewEnableSearch
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.enableSearch"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:attr:enableSearch"
})
#endif
getTreeViewEnableTreeLines :: (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewEnableTreeLines :: forall (m :: * -> *) o. (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewEnableTreeLines 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-tree-lines"
setTreeViewEnableTreeLines :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
setTreeViewEnableTreeLines :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> Bool -> m ()
setTreeViewEnableTreeLines 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-tree-lines" Bool
val
constructTreeViewEnableTreeLines :: (IsTreeView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTreeViewEnableTreeLines :: forall o (m :: * -> *).
(IsTreeView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTreeViewEnableTreeLines 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-tree-lines" Bool
val
#if defined(ENABLE_OVERLOADING)
data TreeViewEnableTreeLinesPropertyInfo
instance AttrInfo TreeViewEnableTreeLinesPropertyInfo where
type AttrAllowedOps TreeViewEnableTreeLinesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewEnableTreeLinesPropertyInfo = IsTreeView
type AttrSetTypeConstraint TreeViewEnableTreeLinesPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TreeViewEnableTreeLinesPropertyInfo = (~) Bool
type AttrTransferType TreeViewEnableTreeLinesPropertyInfo = Bool
type AttrGetType TreeViewEnableTreeLinesPropertyInfo = Bool
type AttrLabel TreeViewEnableTreeLinesPropertyInfo = "enable-tree-lines"
type AttrOrigin TreeViewEnableTreeLinesPropertyInfo = TreeView
attrGet = getTreeViewEnableTreeLines
attrSet = setTreeViewEnableTreeLines
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewEnableTreeLines
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.enableTreeLines"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:attr:enableTreeLines"
})
#endif
getTreeViewExpanderColumn :: (MonadIO m, IsTreeView o) => o -> m (Maybe Gtk.TreeViewColumn.TreeViewColumn)
getTreeViewExpanderColumn :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> m (Maybe TreeViewColumn)
getTreeViewExpanderColumn o
obj = IO (Maybe TreeViewColumn) -> m (Maybe TreeViewColumn)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe TreeViewColumn) -> m (Maybe TreeViewColumn))
-> IO (Maybe TreeViewColumn) -> m (Maybe TreeViewColumn)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr TreeViewColumn -> TreeViewColumn)
-> IO (Maybe TreeViewColumn)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"expander-column" ManagedPtr TreeViewColumn -> TreeViewColumn
Gtk.TreeViewColumn.TreeViewColumn
setTreeViewExpanderColumn :: (MonadIO m, IsTreeView o, Gtk.TreeViewColumn.IsTreeViewColumn a) => o -> a -> m ()
setTreeViewExpanderColumn :: forall (m :: * -> *) o a.
(MonadIO m, IsTreeView o, IsTreeViewColumn a) =>
o -> a -> m ()
setTreeViewExpanderColumn 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
"expander-column" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructTreeViewExpanderColumn :: (IsTreeView o, MIO.MonadIO m, Gtk.TreeViewColumn.IsTreeViewColumn a) => a -> m (GValueConstruct o)
constructTreeViewExpanderColumn :: forall o (m :: * -> *) a.
(IsTreeView o, MonadIO m, IsTreeViewColumn a) =>
a -> m (GValueConstruct o)
constructTreeViewExpanderColumn 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
"expander-column" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearTreeViewExpanderColumn :: (MonadIO m, IsTreeView o) => o -> m ()
clearTreeViewExpanderColumn :: forall (m :: * -> *) o. (MonadIO m, IsTreeView o) => o -> m ()
clearTreeViewExpanderColumn 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 TreeViewColumn -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"expander-column" (Maybe TreeViewColumn
forall a. Maybe a
Nothing :: Maybe Gtk.TreeViewColumn.TreeViewColumn)
#if defined(ENABLE_OVERLOADING)
data TreeViewExpanderColumnPropertyInfo
instance AttrInfo TreeViewExpanderColumnPropertyInfo where
type AttrAllowedOps TreeViewExpanderColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TreeViewExpanderColumnPropertyInfo = IsTreeView
type AttrSetTypeConstraint TreeViewExpanderColumnPropertyInfo = Gtk.TreeViewColumn.IsTreeViewColumn
type AttrTransferTypeConstraint TreeViewExpanderColumnPropertyInfo = Gtk.TreeViewColumn.IsTreeViewColumn
type AttrTransferType TreeViewExpanderColumnPropertyInfo = Gtk.TreeViewColumn.TreeViewColumn
type AttrGetType TreeViewExpanderColumnPropertyInfo = (Maybe Gtk.TreeViewColumn.TreeViewColumn)
type AttrLabel TreeViewExpanderColumnPropertyInfo = "expander-column"
type AttrOrigin TreeViewExpanderColumnPropertyInfo = TreeView
attrGet = getTreeViewExpanderColumn
attrSet = setTreeViewExpanderColumn
attrTransfer _ v = do
unsafeCastTo Gtk.TreeViewColumn.TreeViewColumn v
attrConstruct = constructTreeViewExpanderColumn
attrClear = clearTreeViewExpanderColumn
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.expanderColumn"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:attr:expanderColumn"
})
#endif
getTreeViewFixedHeightMode :: (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewFixedHeightMode :: forall (m :: * -> *) o. (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewFixedHeightMode 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
"fixed-height-mode"
setTreeViewFixedHeightMode :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
setTreeViewFixedHeightMode :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> Bool -> m ()
setTreeViewFixedHeightMode 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
"fixed-height-mode" Bool
val
constructTreeViewFixedHeightMode :: (IsTreeView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTreeViewFixedHeightMode :: forall o (m :: * -> *).
(IsTreeView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTreeViewFixedHeightMode 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
"fixed-height-mode" Bool
val
#if defined(ENABLE_OVERLOADING)
data TreeViewFixedHeightModePropertyInfo
instance AttrInfo TreeViewFixedHeightModePropertyInfo where
type AttrAllowedOps TreeViewFixedHeightModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewFixedHeightModePropertyInfo = IsTreeView
type AttrSetTypeConstraint TreeViewFixedHeightModePropertyInfo = (~) Bool
type AttrTransferTypeConstraint TreeViewFixedHeightModePropertyInfo = (~) Bool
type AttrTransferType TreeViewFixedHeightModePropertyInfo = Bool
type AttrGetType TreeViewFixedHeightModePropertyInfo = Bool
type AttrLabel TreeViewFixedHeightModePropertyInfo = "fixed-height-mode"
type AttrOrigin TreeViewFixedHeightModePropertyInfo = TreeView
attrGet = getTreeViewFixedHeightMode
attrSet = setTreeViewFixedHeightMode
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewFixedHeightMode
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.fixedHeightMode"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:attr:fixedHeightMode"
})
#endif
getTreeViewHeadersClickable :: (MonadIO m, IsTreeView o) => o -> m Bool
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
"headers-clickable"
setTreeViewHeadersClickable :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
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
"headers-clickable" Bool
val
constructTreeViewHeadersClickable :: (IsTreeView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
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
"headers-clickable" Bool
val
#if defined(ENABLE_OVERLOADING)
data TreeViewHeadersClickablePropertyInfo
instance AttrInfo TreeViewHeadersClickablePropertyInfo where
type AttrAllowedOps TreeViewHeadersClickablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewHeadersClickablePropertyInfo = IsTreeView
type AttrSetTypeConstraint TreeViewHeadersClickablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint TreeViewHeadersClickablePropertyInfo = (~) Bool
type AttrTransferType TreeViewHeadersClickablePropertyInfo = Bool
type AttrGetType TreeViewHeadersClickablePropertyInfo = Bool
type AttrLabel TreeViewHeadersClickablePropertyInfo = "headers-clickable"
type AttrOrigin TreeViewHeadersClickablePropertyInfo = TreeView
attrGet = getTreeViewHeadersClickable
attrSet = setTreeViewHeadersClickable
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewHeadersClickable
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.headersClickable"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:attr:headersClickable"
})
#endif
getTreeViewHeadersVisible :: (MonadIO m, IsTreeView o) => o -> m Bool
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
"headers-visible"
setTreeViewHeadersVisible :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
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
"headers-visible" Bool
val
constructTreeViewHeadersVisible :: (IsTreeView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
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
"headers-visible" Bool
val
#if defined(ENABLE_OVERLOADING)
data TreeViewHeadersVisiblePropertyInfo
instance AttrInfo TreeViewHeadersVisiblePropertyInfo where
type AttrAllowedOps TreeViewHeadersVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewHeadersVisiblePropertyInfo = IsTreeView
type AttrSetTypeConstraint TreeViewHeadersVisiblePropertyInfo = (~) Bool
type AttrTransferTypeConstraint TreeViewHeadersVisiblePropertyInfo = (~) Bool
type AttrTransferType TreeViewHeadersVisiblePropertyInfo = Bool
type AttrGetType TreeViewHeadersVisiblePropertyInfo = Bool
type AttrLabel TreeViewHeadersVisiblePropertyInfo = "headers-visible"
type AttrOrigin TreeViewHeadersVisiblePropertyInfo = TreeView
attrGet = getTreeViewHeadersVisible
attrSet = setTreeViewHeadersVisible
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewHeadersVisible
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.headersVisible"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:attr:headersVisible"
})
#endif
getTreeViewHoverExpand :: (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewHoverExpand :: forall (m :: * -> *) o. (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewHoverExpand 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
"hover-expand"
setTreeViewHoverExpand :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
setTreeViewHoverExpand :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> Bool -> m ()
setTreeViewHoverExpand 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
"hover-expand" Bool
val
constructTreeViewHoverExpand :: (IsTreeView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTreeViewHoverExpand :: forall o (m :: * -> *).
(IsTreeView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTreeViewHoverExpand 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
"hover-expand" Bool
val
#if defined(ENABLE_OVERLOADING)
data TreeViewHoverExpandPropertyInfo
instance AttrInfo TreeViewHoverExpandPropertyInfo where
type AttrAllowedOps TreeViewHoverExpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewHoverExpandPropertyInfo = IsTreeView
type AttrSetTypeConstraint TreeViewHoverExpandPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TreeViewHoverExpandPropertyInfo = (~) Bool
type AttrTransferType TreeViewHoverExpandPropertyInfo = Bool
type AttrGetType TreeViewHoverExpandPropertyInfo = Bool
type AttrLabel TreeViewHoverExpandPropertyInfo = "hover-expand"
type AttrOrigin TreeViewHoverExpandPropertyInfo = TreeView
attrGet = getTreeViewHoverExpand
attrSet = setTreeViewHoverExpand
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewHoverExpand
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.hoverExpand"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:attr:hoverExpand"
})
#endif
getTreeViewHoverSelection :: (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewHoverSelection :: forall (m :: * -> *) o. (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewHoverSelection 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
"hover-selection"
setTreeViewHoverSelection :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
setTreeViewHoverSelection :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> Bool -> m ()
setTreeViewHoverSelection 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
"hover-selection" Bool
val
constructTreeViewHoverSelection :: (IsTreeView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTreeViewHoverSelection :: forall o (m :: * -> *).
(IsTreeView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTreeViewHoverSelection 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
"hover-selection" Bool
val
#if defined(ENABLE_OVERLOADING)
data TreeViewHoverSelectionPropertyInfo
instance AttrInfo TreeViewHoverSelectionPropertyInfo where
type AttrAllowedOps TreeViewHoverSelectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewHoverSelectionPropertyInfo = IsTreeView
type AttrSetTypeConstraint TreeViewHoverSelectionPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TreeViewHoverSelectionPropertyInfo = (~) Bool
type AttrTransferType TreeViewHoverSelectionPropertyInfo = Bool
type AttrGetType TreeViewHoverSelectionPropertyInfo = Bool
type AttrLabel TreeViewHoverSelectionPropertyInfo = "hover-selection"
type AttrOrigin TreeViewHoverSelectionPropertyInfo = TreeView
attrGet = getTreeViewHoverSelection
attrSet = setTreeViewHoverSelection
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewHoverSelection
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.hoverSelection"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:attr:hoverSelection"
})
#endif
getTreeViewLevelIndentation :: (MonadIO m, IsTreeView o) => o -> m Int32
getTreeViewLevelIndentation :: forall (m :: * -> *) o. (MonadIO m, IsTreeView o) => o -> m Int32
getTreeViewLevelIndentation o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"level-indentation"
setTreeViewLevelIndentation :: (MonadIO m, IsTreeView o) => o -> Int32 -> m ()
setTreeViewLevelIndentation :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> Int32 -> m ()
setTreeViewLevelIndentation o
obj Int32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"level-indentation" Int32
val
constructTreeViewLevelIndentation :: (IsTreeView o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructTreeViewLevelIndentation :: forall o (m :: * -> *).
(IsTreeView o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructTreeViewLevelIndentation Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"level-indentation" Int32
val
#if defined(ENABLE_OVERLOADING)
data TreeViewLevelIndentationPropertyInfo
instance AttrInfo TreeViewLevelIndentationPropertyInfo where
type AttrAllowedOps TreeViewLevelIndentationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewLevelIndentationPropertyInfo = IsTreeView
type AttrSetTypeConstraint TreeViewLevelIndentationPropertyInfo = (~) Int32
type AttrTransferTypeConstraint TreeViewLevelIndentationPropertyInfo = (~) Int32
type AttrTransferType TreeViewLevelIndentationPropertyInfo = Int32
type AttrGetType TreeViewLevelIndentationPropertyInfo = Int32
type AttrLabel TreeViewLevelIndentationPropertyInfo = "level-indentation"
type AttrOrigin TreeViewLevelIndentationPropertyInfo = TreeView
attrGet = getTreeViewLevelIndentation
attrSet = setTreeViewLevelIndentation
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewLevelIndentation
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.levelIndentation"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:attr:levelIndentation"
})
#endif
getTreeViewModel :: (MonadIO m, IsTreeView o) => o -> m (Maybe Gtk.TreeModel.TreeModel)
getTreeViewModel :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> m (Maybe TreeModel)
getTreeViewModel o
obj = IO (Maybe TreeModel) -> m (Maybe TreeModel)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe TreeModel) -> m (Maybe TreeModel))
-> IO (Maybe TreeModel) -> m (Maybe TreeModel)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr TreeModel -> TreeModel)
-> IO (Maybe TreeModel)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"model" ManagedPtr TreeModel -> TreeModel
Gtk.TreeModel.TreeModel
setTreeViewModel :: (MonadIO m, IsTreeView o, Gtk.TreeModel.IsTreeModel a) => o -> a -> m ()
setTreeViewModel :: forall (m :: * -> *) o a.
(MonadIO m, IsTreeView o, IsTreeModel a) =>
o -> a -> m ()
setTreeViewModel 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)
constructTreeViewModel :: (IsTreeView o, MIO.MonadIO m, Gtk.TreeModel.IsTreeModel a) => a -> m (GValueConstruct o)
constructTreeViewModel :: forall o (m :: * -> *) a.
(IsTreeView o, MonadIO m, IsTreeModel a) =>
a -> m (GValueConstruct o)
constructTreeViewModel 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)
clearTreeViewModel :: (MonadIO m, IsTreeView o) => o -> m ()
clearTreeViewModel :: forall (m :: * -> *) o. (MonadIO m, IsTreeView o) => o -> m ()
clearTreeViewModel 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 TreeModel -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"model" (Maybe TreeModel
forall a. Maybe a
Nothing :: Maybe Gtk.TreeModel.TreeModel)
#if defined(ENABLE_OVERLOADING)
data TreeViewModelPropertyInfo
instance AttrInfo TreeViewModelPropertyInfo where
type AttrAllowedOps TreeViewModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TreeViewModelPropertyInfo = IsTreeView
type AttrSetTypeConstraint TreeViewModelPropertyInfo = Gtk.TreeModel.IsTreeModel
type AttrTransferTypeConstraint TreeViewModelPropertyInfo = Gtk.TreeModel.IsTreeModel
type AttrTransferType TreeViewModelPropertyInfo = Gtk.TreeModel.TreeModel
type AttrGetType TreeViewModelPropertyInfo = (Maybe Gtk.TreeModel.TreeModel)
type AttrLabel TreeViewModelPropertyInfo = "model"
type AttrOrigin TreeViewModelPropertyInfo = TreeView
attrGet = getTreeViewModel
attrSet = setTreeViewModel
attrTransfer _ v = do
unsafeCastTo Gtk.TreeModel.TreeModel v
attrConstruct = constructTreeViewModel
attrClear = clearTreeViewModel
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.model"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:attr:model"
})
#endif
getTreeViewReorderable :: (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewReorderable :: forall (m :: * -> *) o. (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewReorderable 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
"reorderable"
setTreeViewReorderable :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
setTreeViewReorderable :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> Bool -> m ()
setTreeViewReorderable 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
"reorderable" Bool
val
constructTreeViewReorderable :: (IsTreeView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTreeViewReorderable :: forall o (m :: * -> *).
(IsTreeView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTreeViewReorderable 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
"reorderable" Bool
val
#if defined(ENABLE_OVERLOADING)
data TreeViewReorderablePropertyInfo
instance AttrInfo TreeViewReorderablePropertyInfo where
type AttrAllowedOps TreeViewReorderablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewReorderablePropertyInfo = IsTreeView
type AttrSetTypeConstraint TreeViewReorderablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint TreeViewReorderablePropertyInfo = (~) Bool
type AttrTransferType TreeViewReorderablePropertyInfo = Bool
type AttrGetType TreeViewReorderablePropertyInfo = Bool
type AttrLabel TreeViewReorderablePropertyInfo = "reorderable"
type AttrOrigin TreeViewReorderablePropertyInfo = TreeView
attrGet = getTreeViewReorderable
attrSet = setTreeViewReorderable
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewReorderable
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.reorderable"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:attr:reorderable"
})
#endif
getTreeViewRubberBanding :: (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewRubberBanding :: forall (m :: * -> *) o. (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewRubberBanding 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
"rubber-banding"
setTreeViewRubberBanding :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
setTreeViewRubberBanding :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> Bool -> m ()
setTreeViewRubberBanding 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
"rubber-banding" Bool
val
constructTreeViewRubberBanding :: (IsTreeView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTreeViewRubberBanding :: forall o (m :: * -> *).
(IsTreeView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTreeViewRubberBanding 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
"rubber-banding" Bool
val
#if defined(ENABLE_OVERLOADING)
data TreeViewRubberBandingPropertyInfo
instance AttrInfo TreeViewRubberBandingPropertyInfo where
type AttrAllowedOps TreeViewRubberBandingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewRubberBandingPropertyInfo = IsTreeView
type AttrSetTypeConstraint TreeViewRubberBandingPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TreeViewRubberBandingPropertyInfo = (~) Bool
type AttrTransferType TreeViewRubberBandingPropertyInfo = Bool
type AttrGetType TreeViewRubberBandingPropertyInfo = Bool
type AttrLabel TreeViewRubberBandingPropertyInfo = "rubber-banding"
type AttrOrigin TreeViewRubberBandingPropertyInfo = TreeView
attrGet = getTreeViewRubberBanding
attrSet = setTreeViewRubberBanding
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewRubberBanding
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.rubberBanding"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:attr:rubberBanding"
})
#endif
getTreeViewSearchColumn :: (MonadIO m, IsTreeView o) => o -> m Int32
getTreeViewSearchColumn :: forall (m :: * -> *) o. (MonadIO m, IsTreeView o) => o -> m Int32
getTreeViewSearchColumn o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"search-column"
setTreeViewSearchColumn :: (MonadIO m, IsTreeView o) => o -> Int32 -> m ()
setTreeViewSearchColumn :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> Int32 -> m ()
setTreeViewSearchColumn o
obj Int32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"search-column" Int32
val
constructTreeViewSearchColumn :: (IsTreeView o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructTreeViewSearchColumn :: forall o (m :: * -> *).
(IsTreeView o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructTreeViewSearchColumn Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"search-column" Int32
val
#if defined(ENABLE_OVERLOADING)
data TreeViewSearchColumnPropertyInfo
instance AttrInfo TreeViewSearchColumnPropertyInfo where
type AttrAllowedOps TreeViewSearchColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewSearchColumnPropertyInfo = IsTreeView
type AttrSetTypeConstraint TreeViewSearchColumnPropertyInfo = (~) Int32
type AttrTransferTypeConstraint TreeViewSearchColumnPropertyInfo = (~) Int32
type AttrTransferType TreeViewSearchColumnPropertyInfo = Int32
type AttrGetType TreeViewSearchColumnPropertyInfo = Int32
type AttrLabel TreeViewSearchColumnPropertyInfo = "search-column"
type AttrOrigin TreeViewSearchColumnPropertyInfo = TreeView
attrGet = getTreeViewSearchColumn
attrSet = setTreeViewSearchColumn
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewSearchColumn
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.searchColumn"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:attr:searchColumn"
})
#endif
getTreeViewShowExpanders :: (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewShowExpanders :: forall (m :: * -> *) o. (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewShowExpanders 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-expanders"
setTreeViewShowExpanders :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
setTreeViewShowExpanders :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> Bool -> m ()
setTreeViewShowExpanders 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-expanders" Bool
val
constructTreeViewShowExpanders :: (IsTreeView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTreeViewShowExpanders :: forall o (m :: * -> *).
(IsTreeView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTreeViewShowExpanders 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-expanders" Bool
val
#if defined(ENABLE_OVERLOADING)
data TreeViewShowExpandersPropertyInfo
instance AttrInfo TreeViewShowExpandersPropertyInfo where
type AttrAllowedOps TreeViewShowExpandersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewShowExpandersPropertyInfo = IsTreeView
type AttrSetTypeConstraint TreeViewShowExpandersPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TreeViewShowExpandersPropertyInfo = (~) Bool
type AttrTransferType TreeViewShowExpandersPropertyInfo = Bool
type AttrGetType TreeViewShowExpandersPropertyInfo = Bool
type AttrLabel TreeViewShowExpandersPropertyInfo = "show-expanders"
type AttrOrigin TreeViewShowExpandersPropertyInfo = TreeView
attrGet = getTreeViewShowExpanders
attrSet = setTreeViewShowExpanders
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewShowExpanders
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.showExpanders"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:attr:showExpanders"
})
#endif
getTreeViewTooltipColumn :: (MonadIO m, IsTreeView o) => o -> m Int32
getTreeViewTooltipColumn :: forall (m :: * -> *) o. (MonadIO m, IsTreeView o) => o -> m Int32
getTreeViewTooltipColumn o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"tooltip-column"
setTreeViewTooltipColumn :: (MonadIO m, IsTreeView o) => o -> Int32 -> m ()
setTreeViewTooltipColumn :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> Int32 -> m ()
setTreeViewTooltipColumn o
obj Int32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"tooltip-column" Int32
val
constructTreeViewTooltipColumn :: (IsTreeView o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructTreeViewTooltipColumn :: forall o (m :: * -> *).
(IsTreeView o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructTreeViewTooltipColumn Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"tooltip-column" Int32
val
#if defined(ENABLE_OVERLOADING)
data TreeViewTooltipColumnPropertyInfo
instance AttrInfo TreeViewTooltipColumnPropertyInfo where
type AttrAllowedOps TreeViewTooltipColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewTooltipColumnPropertyInfo = IsTreeView
type AttrSetTypeConstraint TreeViewTooltipColumnPropertyInfo = (~) Int32
type AttrTransferTypeConstraint TreeViewTooltipColumnPropertyInfo = (~) Int32
type AttrTransferType TreeViewTooltipColumnPropertyInfo = Int32
type AttrGetType TreeViewTooltipColumnPropertyInfo = Int32
type AttrLabel TreeViewTooltipColumnPropertyInfo = "tooltip-column"
type AttrOrigin TreeViewTooltipColumnPropertyInfo = TreeView
attrGet = getTreeViewTooltipColumn
attrSet = setTreeViewTooltipColumn
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewTooltipColumn
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.tooltipColumn"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#g:attr:tooltipColumn"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList TreeView
type instance O.AttributeList TreeView = TreeViewAttributeList
type TreeViewAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("activateOnSingleClick", TreeViewActivateOnSingleClickPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("enableGridLines", TreeViewEnableGridLinesPropertyInfo), '("enableSearch", TreeViewEnableSearchPropertyInfo), '("enableTreeLines", TreeViewEnableTreeLinesPropertyInfo), '("expanderColumn", TreeViewExpanderColumnPropertyInfo), '("fixedHeightMode", TreeViewFixedHeightModePropertyInfo), '("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), '("headersClickable", TreeViewHeadersClickablePropertyInfo), '("headersVisible", TreeViewHeadersVisiblePropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("hoverExpand", TreeViewHoverExpandPropertyInfo), '("hoverSelection", TreeViewHoverSelectionPropertyInfo), '("hscrollPolicy", Gtk.Scrollable.ScrollableHscrollPolicyPropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("levelIndentation", TreeViewLevelIndentationPropertyInfo), '("limitEvents", Gtk.Widget.WidgetLimitEventsPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("model", TreeViewModelPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("reorderable", TreeViewReorderablePropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("rubberBanding", TreeViewRubberBandingPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("searchColumn", TreeViewSearchColumnPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("showExpanders", TreeViewShowExpandersPropertyInfo), '("tooltipColumn", TreeViewTooltipColumnPropertyInfo), '("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)
treeViewActivateOnSingleClick :: AttrLabelProxy "activateOnSingleClick"
treeViewActivateOnSingleClick = AttrLabelProxy
treeViewEnableGridLines :: AttrLabelProxy "enableGridLines"
treeViewEnableGridLines = AttrLabelProxy
treeViewEnableSearch :: AttrLabelProxy "enableSearch"
treeViewEnableSearch = AttrLabelProxy
treeViewEnableTreeLines :: AttrLabelProxy "enableTreeLines"
treeViewEnableTreeLines = AttrLabelProxy
treeViewExpanderColumn :: AttrLabelProxy "expanderColumn"
treeViewExpanderColumn = AttrLabelProxy
treeViewFixedHeightMode :: AttrLabelProxy "fixedHeightMode"
treeViewFixedHeightMode = AttrLabelProxy
treeViewHeadersClickable :: AttrLabelProxy "headersClickable"
treeViewHeadersClickable = AttrLabelProxy
treeViewHeadersVisible :: AttrLabelProxy "headersVisible"
treeViewHeadersVisible = AttrLabelProxy
treeViewHoverExpand :: AttrLabelProxy "hoverExpand"
treeViewHoverExpand = AttrLabelProxy
treeViewHoverSelection :: AttrLabelProxy "hoverSelection"
treeViewHoverSelection = AttrLabelProxy
treeViewLevelIndentation :: AttrLabelProxy "levelIndentation"
treeViewLevelIndentation = AttrLabelProxy
treeViewModel :: AttrLabelProxy "model"
treeViewModel = AttrLabelProxy
treeViewReorderable :: AttrLabelProxy "reorderable"
treeViewReorderable = AttrLabelProxy
treeViewRubberBanding :: AttrLabelProxy "rubberBanding"
treeViewRubberBanding = AttrLabelProxy
treeViewSearchColumn :: AttrLabelProxy "searchColumn"
treeViewSearchColumn = AttrLabelProxy
treeViewShowExpanders :: AttrLabelProxy "showExpanders"
treeViewShowExpanders = AttrLabelProxy
treeViewTooltipColumn :: AttrLabelProxy "tooltipColumn"
treeViewTooltipColumn = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList TreeView = TreeViewSignalList
type TreeViewSignalList = ('[ '("columnsChanged", TreeViewColumnsChangedSignalInfo), '("cursorChanged", TreeViewCursorChangedSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("expandCollapseCursorRow", TreeViewExpandCollapseCursorRowSignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveCursor", TreeViewMoveCursorSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("rowActivated", TreeViewRowActivatedSignalInfo), '("rowCollapsed", TreeViewRowCollapsedSignalInfo), '("rowExpanded", TreeViewRowExpandedSignalInfo), '("selectAll", TreeViewSelectAllSignalInfo), '("selectCursorParent", TreeViewSelectCursorParentSignalInfo), '("selectCursorRow", TreeViewSelectCursorRowSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("startInteractiveSearch", TreeViewStartInteractiveSearchSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("testCollapseRow", TreeViewTestCollapseRowSignalInfo), '("testExpandRow", TreeViewTestExpandRowSignalInfo), '("toggleCursorRow", TreeViewToggleCursorRowSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("unselectAll", TreeViewUnselectAllSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_tree_view_new" gtk_tree_view_new ::
IO (Ptr TreeView)
{-# DEPRECATED treeViewNew ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m TreeView
treeViewNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m TreeView
treeViewNew = IO TreeView -> m TreeView
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TreeView -> m TreeView) -> IO TreeView -> m TreeView
forall a b. (a -> b) -> a -> b
$ do
result <- IO (Ptr TreeView)
gtk_tree_view_new
checkUnexpectedReturnNULL "treeViewNew" result
result' <- (newObject TreeView) result
return result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_tree_view_new_with_model" gtk_tree_view_new_with_model ::
Ptr Gtk.TreeModel.TreeModel ->
IO (Ptr TreeView)
{-# DEPRECATED treeViewNewWithModel ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewNewWithModel ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.TreeModel.IsTreeModel a) =>
a
-> m TreeView
treeViewNewWithModel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeModel a) =>
a -> m TreeView
treeViewNewWithModel a
model = IO TreeView -> m TreeView
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TreeView -> m TreeView) -> IO TreeView -> m TreeView
forall a b. (a -> b) -> a -> b
$ do
model' <- a -> IO (Ptr TreeModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
model
result <- gtk_tree_view_new_with_model model'
checkUnexpectedReturnNULL "treeViewNewWithModel" result
result' <- (newObject TreeView) result
touchManagedPtr model
return result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_tree_view_append_column" gtk_tree_view_append_column ::
Ptr TreeView ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
IO Int32
{-# DEPRECATED treeViewAppendColumn ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewAppendColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) =>
a
-> b
-> m Int32
treeViewAppendColumn :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeView a, IsTreeViewColumn b) =>
a -> b -> m Int32
treeViewAppendColumn a
treeView b
column = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
column' <- unsafeManagedPtrCastPtr column
result <- gtk_tree_view_append_column treeView' column'
touchManagedPtr treeView
touchManagedPtr column
return result
#if defined(ENABLE_OVERLOADING)
data TreeViewAppendColumnMethodInfo
instance (signature ~ (b -> m Int32), MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) => O.OverloadedMethod TreeViewAppendColumnMethodInfo a signature where
overloadedMethod = treeViewAppendColumn
instance O.OverloadedMethodInfo TreeViewAppendColumnMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewAppendColumn",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewAppendColumn"
})
#endif
foreign import ccall "gtk_tree_view_collapse_all" gtk_tree_view_collapse_all ::
Ptr TreeView ->
IO ()
{-# DEPRECATED treeViewCollapseAll ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewCollapseAll ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m ()
treeViewCollapseAll :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m ()
treeViewCollapseAll a
treeView = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
gtk_tree_view_collapse_all treeView'
touchManagedPtr treeView
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewCollapseAllMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewCollapseAllMethodInfo a signature where
overloadedMethod = treeViewCollapseAll
instance O.OverloadedMethodInfo TreeViewCollapseAllMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewCollapseAll",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewCollapseAll"
})
#endif
foreign import ccall "gtk_tree_view_collapse_row" gtk_tree_view_collapse_row ::
Ptr TreeView ->
Ptr Gtk.TreePath.TreePath ->
IO CInt
{-# DEPRECATED treeViewCollapseRow ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewCollapseRow ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Gtk.TreePath.TreePath
-> m Bool
treeViewCollapseRow :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> TreePath -> m Bool
treeViewCollapseRow a
treeView TreePath
path = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
path' <- unsafeManagedPtrGetPtr path
result <- gtk_tree_view_collapse_row treeView' path'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr treeView
touchManagedPtr path
return result'
#if defined(ENABLE_OVERLOADING)
data TreeViewCollapseRowMethodInfo
instance (signature ~ (Gtk.TreePath.TreePath -> m Bool), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewCollapseRowMethodInfo a signature where
overloadedMethod = treeViewCollapseRow
instance O.OverloadedMethodInfo TreeViewCollapseRowMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewCollapseRow",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewCollapseRow"
})
#endif
foreign import ccall "gtk_tree_view_columns_autosize" gtk_tree_view_columns_autosize ::
Ptr TreeView ->
IO ()
{-# DEPRECATED treeViewColumnsAutosize ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewColumnsAutosize ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m ()
treeViewColumnsAutosize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m ()
treeViewColumnsAutosize a
treeView = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
gtk_tree_view_columns_autosize treeView'
touchManagedPtr treeView
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnsAutosizeMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewColumnsAutosizeMethodInfo a signature where
overloadedMethod = treeViewColumnsAutosize
instance O.OverloadedMethodInfo TreeViewColumnsAutosizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewColumnsAutosize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewColumnsAutosize"
})
#endif
foreign import ccall "gtk_tree_view_convert_bin_window_to_tree_coords" gtk_tree_view_convert_bin_window_to_tree_coords ::
Ptr TreeView ->
Int32 ->
Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
{-# DEPRECATED treeViewConvertBinWindowToTreeCoords ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewConvertBinWindowToTreeCoords ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m ((Int32, Int32))
treeViewConvertBinWindowToTreeCoords :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Int32 -> Int32 -> m (Int32, Int32)
treeViewConvertBinWindowToTreeCoords a
treeView Int32
bx Int32
by = IO (Int32, Int32) -> m (Int32, Int32)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
tx <- allocMem :: IO (Ptr Int32)
ty <- allocMem :: IO (Ptr Int32)
gtk_tree_view_convert_bin_window_to_tree_coords treeView' bx by tx ty
tx' <- peek tx
ty' <- peek ty
touchManagedPtr treeView
freeMem tx
freeMem ty
return (tx', ty')
#if defined(ENABLE_OVERLOADING)
data TreeViewConvertBinWindowToTreeCoordsMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ((Int32, Int32))), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewConvertBinWindowToTreeCoordsMethodInfo a signature where
overloadedMethod = treeViewConvertBinWindowToTreeCoords
instance O.OverloadedMethodInfo TreeViewConvertBinWindowToTreeCoordsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewConvertBinWindowToTreeCoords",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewConvertBinWindowToTreeCoords"
})
#endif
foreign import ccall "gtk_tree_view_convert_bin_window_to_widget_coords" gtk_tree_view_convert_bin_window_to_widget_coords ::
Ptr TreeView ->
Int32 ->
Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
{-# DEPRECATED treeViewConvertBinWindowToWidgetCoords ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewConvertBinWindowToWidgetCoords ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m ((Int32, Int32))
treeViewConvertBinWindowToWidgetCoords :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Int32 -> Int32 -> m (Int32, Int32)
treeViewConvertBinWindowToWidgetCoords a
treeView Int32
bx Int32
by = IO (Int32, Int32) -> m (Int32, Int32)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
wx <- allocMem :: IO (Ptr Int32)
wy <- allocMem :: IO (Ptr Int32)
gtk_tree_view_convert_bin_window_to_widget_coords treeView' bx by wx wy
wx' <- peek wx
wy' <- peek wy
touchManagedPtr treeView
freeMem wx
freeMem wy
return (wx', wy')
#if defined(ENABLE_OVERLOADING)
data TreeViewConvertBinWindowToWidgetCoordsMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ((Int32, Int32))), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewConvertBinWindowToWidgetCoordsMethodInfo a signature where
overloadedMethod = treeViewConvertBinWindowToWidgetCoords
instance O.OverloadedMethodInfo TreeViewConvertBinWindowToWidgetCoordsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewConvertBinWindowToWidgetCoords",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewConvertBinWindowToWidgetCoords"
})
#endif
foreign import ccall "gtk_tree_view_convert_tree_to_bin_window_coords" gtk_tree_view_convert_tree_to_bin_window_coords ::
Ptr TreeView ->
Int32 ->
Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
{-# DEPRECATED treeViewConvertTreeToBinWindowCoords ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewConvertTreeToBinWindowCoords ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m ((Int32, Int32))
treeViewConvertTreeToBinWindowCoords :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Int32 -> Int32 -> m (Int32, Int32)
treeViewConvertTreeToBinWindowCoords a
treeView Int32
tx Int32
ty = IO (Int32, Int32) -> m (Int32, Int32)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
bx <- allocMem :: IO (Ptr Int32)
by <- allocMem :: IO (Ptr Int32)
gtk_tree_view_convert_tree_to_bin_window_coords treeView' tx ty bx by
bx' <- peek bx
by' <- peek by
touchManagedPtr treeView
freeMem bx
freeMem by
return (bx', by')
#if defined(ENABLE_OVERLOADING)
data TreeViewConvertTreeToBinWindowCoordsMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ((Int32, Int32))), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewConvertTreeToBinWindowCoordsMethodInfo a signature where
overloadedMethod = treeViewConvertTreeToBinWindowCoords
instance O.OverloadedMethodInfo TreeViewConvertTreeToBinWindowCoordsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewConvertTreeToBinWindowCoords",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewConvertTreeToBinWindowCoords"
})
#endif
foreign import ccall "gtk_tree_view_convert_tree_to_widget_coords" gtk_tree_view_convert_tree_to_widget_coords ::
Ptr TreeView ->
Int32 ->
Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
{-# DEPRECATED treeViewConvertTreeToWidgetCoords ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewConvertTreeToWidgetCoords ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m ((Int32, Int32))
treeViewConvertTreeToWidgetCoords :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Int32 -> Int32 -> m (Int32, Int32)
treeViewConvertTreeToWidgetCoords a
treeView Int32
tx Int32
ty = IO (Int32, Int32) -> m (Int32, Int32)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
wx <- allocMem :: IO (Ptr Int32)
wy <- allocMem :: IO (Ptr Int32)
gtk_tree_view_convert_tree_to_widget_coords treeView' tx ty wx wy
wx' <- peek wx
wy' <- peek wy
touchManagedPtr treeView
freeMem wx
freeMem wy
return (wx', wy')
#if defined(ENABLE_OVERLOADING)
data TreeViewConvertTreeToWidgetCoordsMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ((Int32, Int32))), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewConvertTreeToWidgetCoordsMethodInfo a signature where
overloadedMethod = treeViewConvertTreeToWidgetCoords
instance O.OverloadedMethodInfo TreeViewConvertTreeToWidgetCoordsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewConvertTreeToWidgetCoords",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewConvertTreeToWidgetCoords"
})
#endif
foreign import ccall "gtk_tree_view_convert_widget_to_bin_window_coords" gtk_tree_view_convert_widget_to_bin_window_coords ::
Ptr TreeView ->
Int32 ->
Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
{-# DEPRECATED treeViewConvertWidgetToBinWindowCoords ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewConvertWidgetToBinWindowCoords ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m ((Int32, Int32))
treeViewConvertWidgetToBinWindowCoords :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Int32 -> Int32 -> m (Int32, Int32)
treeViewConvertWidgetToBinWindowCoords a
treeView Int32
wx Int32
wy = IO (Int32, Int32) -> m (Int32, Int32)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
bx <- allocMem :: IO (Ptr Int32)
by <- allocMem :: IO (Ptr Int32)
gtk_tree_view_convert_widget_to_bin_window_coords treeView' wx wy bx by
bx' <- peek bx
by' <- peek by
touchManagedPtr treeView
freeMem bx
freeMem by
return (bx', by')
#if defined(ENABLE_OVERLOADING)
data TreeViewConvertWidgetToBinWindowCoordsMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ((Int32, Int32))), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewConvertWidgetToBinWindowCoordsMethodInfo a signature where
overloadedMethod = treeViewConvertWidgetToBinWindowCoords
instance O.OverloadedMethodInfo TreeViewConvertWidgetToBinWindowCoordsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewConvertWidgetToBinWindowCoords",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewConvertWidgetToBinWindowCoords"
})
#endif
foreign import ccall "gtk_tree_view_convert_widget_to_tree_coords" gtk_tree_view_convert_widget_to_tree_coords ::
Ptr TreeView ->
Int32 ->
Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
{-# DEPRECATED treeViewConvertWidgetToTreeCoords ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewConvertWidgetToTreeCoords ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m ((Int32, Int32))
treeViewConvertWidgetToTreeCoords :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Int32 -> Int32 -> m (Int32, Int32)
treeViewConvertWidgetToTreeCoords a
treeView Int32
wx Int32
wy = IO (Int32, Int32) -> m (Int32, Int32)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
tx <- allocMem :: IO (Ptr Int32)
ty <- allocMem :: IO (Ptr Int32)
gtk_tree_view_convert_widget_to_tree_coords treeView' wx wy tx ty
tx' <- peek tx
ty' <- peek ty
touchManagedPtr treeView
freeMem tx
freeMem ty
return (tx', ty')
#if defined(ENABLE_OVERLOADING)
data TreeViewConvertWidgetToTreeCoordsMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ((Int32, Int32))), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewConvertWidgetToTreeCoordsMethodInfo a signature where
overloadedMethod = treeViewConvertWidgetToTreeCoords
instance O.OverloadedMethodInfo TreeViewConvertWidgetToTreeCoordsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewConvertWidgetToTreeCoords",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewConvertWidgetToTreeCoords"
})
#endif
foreign import ccall "gtk_tree_view_create_row_drag_icon" gtk_tree_view_create_row_drag_icon ::
Ptr TreeView ->
Ptr Gtk.TreePath.TreePath ->
IO (Ptr Gdk.Paintable.Paintable)
{-# DEPRECATED treeViewCreateRowDragIcon ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewCreateRowDragIcon ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Gtk.TreePath.TreePath
-> m (Maybe Gdk.Paintable.Paintable)
treeViewCreateRowDragIcon :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> TreePath -> m (Maybe Paintable)
treeViewCreateRowDragIcon a
treeView TreePath
path = IO (Maybe Paintable) -> m (Maybe Paintable)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Paintable) -> m (Maybe Paintable))
-> IO (Maybe Paintable) -> m (Maybe Paintable)
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
path' <- unsafeManagedPtrGetPtr path
result <- gtk_tree_view_create_row_drag_icon treeView' path'
maybeResult <- convertIfNonNull result $ \Ptr Paintable
result' -> do
result'' <- ((ManagedPtr Paintable -> Paintable)
-> Ptr Paintable -> IO Paintable
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Paintable -> Paintable
Gdk.Paintable.Paintable) Ptr Paintable
result'
return result''
touchManagedPtr treeView
touchManagedPtr path
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TreeViewCreateRowDragIconMethodInfo
instance (signature ~ (Gtk.TreePath.TreePath -> m (Maybe Gdk.Paintable.Paintable)), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewCreateRowDragIconMethodInfo a signature where
overloadedMethod = treeViewCreateRowDragIcon
instance O.OverloadedMethodInfo TreeViewCreateRowDragIconMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewCreateRowDragIcon",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewCreateRowDragIcon"
})
#endif
foreign import ccall "gtk_tree_view_enable_model_drag_dest" gtk_tree_view_enable_model_drag_dest ::
Ptr TreeView ->
Ptr Gdk.ContentFormats.ContentFormats ->
CUInt ->
IO ()
{-# DEPRECATED treeViewEnableModelDragDest ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewEnableModelDragDest ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Gdk.ContentFormats.ContentFormats
-> [Gdk.Flags.DragAction]
-> m ()
treeViewEnableModelDragDest :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> ContentFormats -> [DragAction] -> m ()
treeViewEnableModelDragDest a
treeView ContentFormats
formats [DragAction]
actions = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
formats' <- unsafeManagedPtrGetPtr formats
let actions' = [DragAction] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [DragAction]
actions
gtk_tree_view_enable_model_drag_dest treeView' formats' actions'
touchManagedPtr treeView
touchManagedPtr formats
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewEnableModelDragDestMethodInfo
instance (signature ~ (Gdk.ContentFormats.ContentFormats -> [Gdk.Flags.DragAction] -> m ()), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewEnableModelDragDestMethodInfo a signature where
overloadedMethod = treeViewEnableModelDragDest
instance O.OverloadedMethodInfo TreeViewEnableModelDragDestMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewEnableModelDragDest",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewEnableModelDragDest"
})
#endif
foreign import ccall "gtk_tree_view_enable_model_drag_source" gtk_tree_view_enable_model_drag_source ::
Ptr TreeView ->
CUInt ->
Ptr Gdk.ContentFormats.ContentFormats ->
CUInt ->
IO ()
{-# DEPRECATED treeViewEnableModelDragSource ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewEnableModelDragSource ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> [Gdk.Flags.ModifierType]
-> Gdk.ContentFormats.ContentFormats
-> [Gdk.Flags.DragAction]
-> m ()
treeViewEnableModelDragSource :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> [ModifierType] -> ContentFormats -> [DragAction] -> m ()
treeViewEnableModelDragSource a
treeView [ModifierType]
startButtonMask ContentFormats
formats [DragAction]
actions = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
let startButtonMask' = [ModifierType] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [ModifierType]
startButtonMask
formats' <- unsafeManagedPtrGetPtr formats
let actions' = [DragAction] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [DragAction]
actions
gtk_tree_view_enable_model_drag_source treeView' startButtonMask' formats' actions'
touchManagedPtr treeView
touchManagedPtr formats
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewEnableModelDragSourceMethodInfo
instance (signature ~ ([Gdk.Flags.ModifierType] -> Gdk.ContentFormats.ContentFormats -> [Gdk.Flags.DragAction] -> m ()), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewEnableModelDragSourceMethodInfo a signature where
overloadedMethod = treeViewEnableModelDragSource
instance O.OverloadedMethodInfo TreeViewEnableModelDragSourceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewEnableModelDragSource",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewEnableModelDragSource"
})
#endif
foreign import ccall "gtk_tree_view_expand_all" gtk_tree_view_expand_all ::
Ptr TreeView ->
IO ()
{-# DEPRECATED treeViewExpandAll ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewExpandAll ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m ()
treeViewExpandAll :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m ()
treeViewExpandAll a
treeView = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
gtk_tree_view_expand_all treeView'
touchManagedPtr treeView
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewExpandAllMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewExpandAllMethodInfo a signature where
overloadedMethod = treeViewExpandAll
instance O.OverloadedMethodInfo TreeViewExpandAllMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewExpandAll",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewExpandAll"
})
#endif
foreign import ccall "gtk_tree_view_expand_row" gtk_tree_view_expand_row ::
Ptr TreeView ->
Ptr Gtk.TreePath.TreePath ->
CInt ->
IO CInt
{-# DEPRECATED treeViewExpandRow ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewExpandRow ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Gtk.TreePath.TreePath
-> Bool
-> m Bool
treeViewExpandRow :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> TreePath -> Bool -> m Bool
treeViewExpandRow a
treeView TreePath
path Bool
openAll = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
path' <- unsafeManagedPtrGetPtr path
let openAll' = (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
openAll
result <- gtk_tree_view_expand_row treeView' path' openAll'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr treeView
touchManagedPtr path
return result'
#if defined(ENABLE_OVERLOADING)
data TreeViewExpandRowMethodInfo
instance (signature ~ (Gtk.TreePath.TreePath -> Bool -> m Bool), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewExpandRowMethodInfo a signature where
overloadedMethod = treeViewExpandRow
instance O.OverloadedMethodInfo TreeViewExpandRowMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewExpandRow",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewExpandRow"
})
#endif
foreign import ccall "gtk_tree_view_expand_to_path" gtk_tree_view_expand_to_path ::
Ptr TreeView ->
Ptr Gtk.TreePath.TreePath ->
IO ()
{-# DEPRECATED treeViewExpandToPath ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewExpandToPath ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Gtk.TreePath.TreePath
-> m ()
treeViewExpandToPath :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> TreePath -> m ()
treeViewExpandToPath a
treeView TreePath
path = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
path' <- unsafeManagedPtrGetPtr path
gtk_tree_view_expand_to_path treeView' path'
touchManagedPtr treeView
touchManagedPtr path
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewExpandToPathMethodInfo
instance (signature ~ (Gtk.TreePath.TreePath -> m ()), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewExpandToPathMethodInfo a signature where
overloadedMethod = treeViewExpandToPath
instance O.OverloadedMethodInfo TreeViewExpandToPathMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewExpandToPath",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewExpandToPath"
})
#endif
foreign import ccall "gtk_tree_view_get_activate_on_single_click" gtk_tree_view_get_activate_on_single_click ::
Ptr TreeView ->
IO CInt
{-# DEPRECATED treeViewGetActivateOnSingleClick ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewGetActivateOnSingleClick ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeViewGetActivateOnSingleClick :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Bool
treeViewGetActivateOnSingleClick a
treeView = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
result <- gtk_tree_view_get_activate_on_single_click treeView'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr treeView
return result'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetActivateOnSingleClickMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewGetActivateOnSingleClickMethodInfo a signature where
overloadedMethod = treeViewGetActivateOnSingleClick
instance O.OverloadedMethodInfo TreeViewGetActivateOnSingleClickMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewGetActivateOnSingleClick",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetActivateOnSingleClick"
})
#endif
foreign import ccall "gtk_tree_view_get_background_area" gtk_tree_view_get_background_area ::
Ptr TreeView ->
Ptr Gtk.TreePath.TreePath ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
Ptr Gdk.Rectangle.Rectangle ->
IO ()
{-# DEPRECATED treeViewGetBackgroundArea ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewGetBackgroundArea ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) =>
a
-> Maybe (Gtk.TreePath.TreePath)
-> Maybe (b)
-> m (Gdk.Rectangle.Rectangle)
treeViewGetBackgroundArea :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeView a, IsTreeViewColumn b) =>
a -> Maybe TreePath -> Maybe b -> m Rectangle
treeViewGetBackgroundArea a
treeView Maybe TreePath
path Maybe b
column = IO Rectangle -> m Rectangle
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Rectangle -> m Rectangle) -> IO Rectangle -> m Rectangle
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
maybePath <- case path of
Maybe TreePath
Nothing -> Ptr TreePath -> IO (Ptr TreePath)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreePath
forall a. Ptr a
FP.nullPtr
Just TreePath
jPath -> do
jPath' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
jPath
return jPath'
maybeColumn <- case column of
Maybe b
Nothing -> Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
forall a. Ptr a
FP.nullPtr
Just b
jColumn -> do
jColumn' <- b -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jColumn
return jColumn'
rect <- SP.callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle.Rectangle)
gtk_tree_view_get_background_area treeView' maybePath maybeColumn rect
rect' <- (wrapBoxed Gdk.Rectangle.Rectangle) rect
touchManagedPtr treeView
whenJust path touchManagedPtr
whenJust column touchManagedPtr
return rect'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetBackgroundAreaMethodInfo
instance (signature ~ (Maybe (Gtk.TreePath.TreePath) -> Maybe (b) -> m (Gdk.Rectangle.Rectangle)), MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) => O.OverloadedMethod TreeViewGetBackgroundAreaMethodInfo a signature where
overloadedMethod = treeViewGetBackgroundArea
instance O.OverloadedMethodInfo TreeViewGetBackgroundAreaMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewGetBackgroundArea",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetBackgroundArea"
})
#endif
foreign import ccall "gtk_tree_view_get_cell_area" gtk_tree_view_get_cell_area ::
Ptr TreeView ->
Ptr Gtk.TreePath.TreePath ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
Ptr Gdk.Rectangle.Rectangle ->
IO ()
{-# DEPRECATED treeViewGetCellArea ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewGetCellArea ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) =>
a
-> Maybe (Gtk.TreePath.TreePath)
-> Maybe (b)
-> m (Gdk.Rectangle.Rectangle)
treeViewGetCellArea :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeView a, IsTreeViewColumn b) =>
a -> Maybe TreePath -> Maybe b -> m Rectangle
treeViewGetCellArea a
treeView Maybe TreePath
path Maybe b
column = IO Rectangle -> m Rectangle
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Rectangle -> m Rectangle) -> IO Rectangle -> m Rectangle
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
maybePath <- case path of
Maybe TreePath
Nothing -> Ptr TreePath -> IO (Ptr TreePath)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreePath
forall a. Ptr a
FP.nullPtr
Just TreePath
jPath -> do
jPath' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
jPath
return jPath'
maybeColumn <- case column of
Maybe b
Nothing -> Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
forall a. Ptr a
FP.nullPtr
Just b
jColumn -> do
jColumn' <- b -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jColumn
return jColumn'
rect <- SP.callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle.Rectangle)
gtk_tree_view_get_cell_area treeView' maybePath maybeColumn rect
rect' <- (wrapBoxed Gdk.Rectangle.Rectangle) rect
touchManagedPtr treeView
whenJust path touchManagedPtr
whenJust column touchManagedPtr
return rect'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetCellAreaMethodInfo
instance (signature ~ (Maybe (Gtk.TreePath.TreePath) -> Maybe (b) -> m (Gdk.Rectangle.Rectangle)), MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) => O.OverloadedMethod TreeViewGetCellAreaMethodInfo a signature where
overloadedMethod = treeViewGetCellArea
instance O.OverloadedMethodInfo TreeViewGetCellAreaMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewGetCellArea",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetCellArea"
})
#endif
foreign import ccall "gtk_tree_view_get_column" gtk_tree_view_get_column ::
Ptr TreeView ->
Int32 ->
IO (Ptr Gtk.TreeViewColumn.TreeViewColumn)
{-# DEPRECATED treeViewGetColumn ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewGetColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> m (Maybe Gtk.TreeViewColumn.TreeViewColumn)
treeViewGetColumn :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Int32 -> m (Maybe TreeViewColumn)
treeViewGetColumn a
treeView Int32
n = IO (Maybe TreeViewColumn) -> m (Maybe TreeViewColumn)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe TreeViewColumn) -> m (Maybe TreeViewColumn))
-> IO (Maybe TreeViewColumn) -> m (Maybe TreeViewColumn)
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
result <- gtk_tree_view_get_column treeView' n
maybeResult <- convertIfNonNull result $ \Ptr TreeViewColumn
result' -> do
result'' <- ((ManagedPtr TreeViewColumn -> TreeViewColumn)
-> Ptr TreeViewColumn -> IO TreeViewColumn
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TreeViewColumn -> TreeViewColumn
Gtk.TreeViewColumn.TreeViewColumn) Ptr TreeViewColumn
result'
return result''
touchManagedPtr treeView
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TreeViewGetColumnMethodInfo
instance (signature ~ (Int32 -> m (Maybe Gtk.TreeViewColumn.TreeViewColumn)), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewGetColumnMethodInfo a signature where
overloadedMethod = treeViewGetColumn
instance O.OverloadedMethodInfo TreeViewGetColumnMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewGetColumn",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetColumn"
})
#endif
foreign import ccall "gtk_tree_view_get_columns" gtk_tree_view_get_columns ::
Ptr TreeView ->
IO (Ptr (GList (Ptr Gtk.TreeViewColumn.TreeViewColumn)))
{-# DEPRECATED treeViewGetColumns ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewGetColumns ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m [Gtk.TreeViewColumn.TreeViewColumn]
treeViewGetColumns :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m [TreeViewColumn]
treeViewGetColumns a
treeView = IO [TreeViewColumn] -> m [TreeViewColumn]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [TreeViewColumn] -> m [TreeViewColumn])
-> IO [TreeViewColumn] -> m [TreeViewColumn]
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
result <- gtk_tree_view_get_columns treeView'
result' <- unpackGList result
result'' <- mapM (newObject Gtk.TreeViewColumn.TreeViewColumn) result'
g_list_free result
touchManagedPtr treeView
return result''
#if defined(ENABLE_OVERLOADING)
data TreeViewGetColumnsMethodInfo
instance (signature ~ (m [Gtk.TreeViewColumn.TreeViewColumn]), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewGetColumnsMethodInfo a signature where
overloadedMethod = treeViewGetColumns
instance O.OverloadedMethodInfo TreeViewGetColumnsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewGetColumns",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetColumns"
})
#endif
foreign import ccall "gtk_tree_view_get_cursor" gtk_tree_view_get_cursor ::
Ptr TreeView ->
Ptr (Ptr Gtk.TreePath.TreePath) ->
Ptr (Ptr Gtk.TreeViewColumn.TreeViewColumn) ->
IO ()
{-# DEPRECATED treeViewGetCursor ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewGetCursor ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m ((Maybe Gtk.TreePath.TreePath, Maybe Gtk.TreeViewColumn.TreeViewColumn))
treeViewGetCursor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m (Maybe TreePath, Maybe TreeViewColumn)
treeViewGetCursor a
treeView = IO (Maybe TreePath, Maybe TreeViewColumn)
-> m (Maybe TreePath, Maybe TreeViewColumn)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe TreePath, Maybe TreeViewColumn)
-> m (Maybe TreePath, Maybe TreeViewColumn))
-> IO (Maybe TreePath, Maybe TreeViewColumn)
-> m (Maybe TreePath, Maybe TreeViewColumn)
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
path <- callocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
focusColumn <- callocMem :: IO (Ptr (Ptr Gtk.TreeViewColumn.TreeViewColumn))
gtk_tree_view_get_cursor treeView' path focusColumn
path' <- peek path
maybePath' <- convertIfNonNull path' $ \Ptr TreePath
path'' -> do
path''' <- ((ManagedPtr TreePath -> TreePath) -> Ptr TreePath -> IO TreePath
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath) Ptr TreePath
path''
return path'''
focusColumn' <- peek focusColumn
maybeFocusColumn' <- convertIfNonNull focusColumn' $ \Ptr TreeViewColumn
focusColumn'' -> do
focusColumn''' <- ((ManagedPtr TreeViewColumn -> TreeViewColumn)
-> Ptr TreeViewColumn -> IO TreeViewColumn
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TreeViewColumn -> TreeViewColumn
Gtk.TreeViewColumn.TreeViewColumn) Ptr TreeViewColumn
focusColumn''
return focusColumn'''
touchManagedPtr treeView
freeMem path
freeMem focusColumn
return (maybePath', maybeFocusColumn')
#if defined(ENABLE_OVERLOADING)
data TreeViewGetCursorMethodInfo
instance (signature ~ (m ((Maybe Gtk.TreePath.TreePath, Maybe Gtk.TreeViewColumn.TreeViewColumn))), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewGetCursorMethodInfo a signature where
overloadedMethod = treeViewGetCursor
instance O.OverloadedMethodInfo TreeViewGetCursorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewGetCursor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetCursor"
})
#endif
foreign import ccall "gtk_tree_view_get_dest_row_at_pos" gtk_tree_view_get_dest_row_at_pos ::
Ptr TreeView ->
Int32 ->
Int32 ->
Ptr (Ptr Gtk.TreePath.TreePath) ->
Ptr CUInt ->
IO CInt
{-# DEPRECATED treeViewGetDestRowAtPos ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewGetDestRowAtPos ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m ((Bool, Maybe Gtk.TreePath.TreePath, Gtk.Enums.TreeViewDropPosition))
treeViewGetDestRowAtPos :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32 -> Int32 -> m (Bool, Maybe TreePath, TreeViewDropPosition)
treeViewGetDestRowAtPos a
treeView Int32
dragX Int32
dragY = IO (Bool, Maybe TreePath, TreeViewDropPosition)
-> m (Bool, Maybe TreePath, TreeViewDropPosition)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Maybe TreePath, TreeViewDropPosition)
-> m (Bool, Maybe TreePath, TreeViewDropPosition))
-> IO (Bool, Maybe TreePath, TreeViewDropPosition)
-> m (Bool, Maybe TreePath, TreeViewDropPosition)
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
path <- callocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
pos <- allocMem :: IO (Ptr CUInt)
result <- gtk_tree_view_get_dest_row_at_pos treeView' dragX dragY path pos
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
path' <- peek path
maybePath' <- convertIfNonNull path' $ \Ptr TreePath
path'' -> do
path''' <- ((ManagedPtr TreePath -> TreePath) -> Ptr TreePath -> IO TreePath
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath) Ptr TreePath
path''
return path'''
pos' <- peek pos
let pos'' = (Int -> TreeViewDropPosition
forall a. Enum a => Int -> a
toEnum (Int -> TreeViewDropPosition)
-> (CUInt -> Int) -> CUInt -> TreeViewDropPosition
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
pos'
touchManagedPtr treeView
freeMem path
freeMem pos
return (result', maybePath', pos'')
#if defined(ENABLE_OVERLOADING)
data TreeViewGetDestRowAtPosMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ((Bool, Maybe Gtk.TreePath.TreePath, Gtk.Enums.TreeViewDropPosition))), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewGetDestRowAtPosMethodInfo a signature where
overloadedMethod = treeViewGetDestRowAtPos
instance O.OverloadedMethodInfo TreeViewGetDestRowAtPosMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewGetDestRowAtPos",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetDestRowAtPos"
})
#endif
foreign import ccall "gtk_tree_view_get_drag_dest_row" gtk_tree_view_get_drag_dest_row ::
Ptr TreeView ->
Ptr (Ptr Gtk.TreePath.TreePath) ->
Ptr CUInt ->
IO ()
{-# DEPRECATED treeViewGetDragDestRow ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewGetDragDestRow ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m ((Maybe Gtk.TreePath.TreePath, Gtk.Enums.TreeViewDropPosition))
treeViewGetDragDestRow :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m (Maybe TreePath, TreeViewDropPosition)
treeViewGetDragDestRow a
treeView = IO (Maybe TreePath, TreeViewDropPosition)
-> m (Maybe TreePath, TreeViewDropPosition)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe TreePath, TreeViewDropPosition)
-> m (Maybe TreePath, TreeViewDropPosition))
-> IO (Maybe TreePath, TreeViewDropPosition)
-> m (Maybe TreePath, TreeViewDropPosition)
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
path <- callocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
pos <- allocMem :: IO (Ptr CUInt)
gtk_tree_view_get_drag_dest_row treeView' path pos
path' <- peek path
maybePath' <- convertIfNonNull path' $ \Ptr TreePath
path'' -> do
path''' <- ((ManagedPtr TreePath -> TreePath) -> Ptr TreePath -> IO TreePath
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath) Ptr TreePath
path''
return path'''
pos' <- peek pos
let pos'' = (Int -> TreeViewDropPosition
forall a. Enum a => Int -> a
toEnum (Int -> TreeViewDropPosition)
-> (CUInt -> Int) -> CUInt -> TreeViewDropPosition
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
pos'
touchManagedPtr treeView
freeMem path
freeMem pos
return (maybePath', pos'')
#if defined(ENABLE_OVERLOADING)
data TreeViewGetDragDestRowMethodInfo
instance (signature ~ (m ((Maybe Gtk.TreePath.TreePath, Gtk.Enums.TreeViewDropPosition))), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewGetDragDestRowMethodInfo a signature where
overloadedMethod = treeViewGetDragDestRow
instance O.OverloadedMethodInfo TreeViewGetDragDestRowMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewGetDragDestRow",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetDragDestRow"
})
#endif
foreign import ccall "gtk_tree_view_get_enable_search" gtk_tree_view_get_enable_search ::
Ptr TreeView ->
IO CInt
{-# DEPRECATED treeViewGetEnableSearch ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewGetEnableSearch ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeViewGetEnableSearch :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Bool
treeViewGetEnableSearch a
treeView = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
result <- gtk_tree_view_get_enable_search treeView'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr treeView
return result'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetEnableSearchMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewGetEnableSearchMethodInfo a signature where
overloadedMethod = treeViewGetEnableSearch
instance O.OverloadedMethodInfo TreeViewGetEnableSearchMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewGetEnableSearch",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetEnableSearch"
})
#endif
foreign import ccall "gtk_tree_view_get_enable_tree_lines" gtk_tree_view_get_enable_tree_lines ::
Ptr TreeView ->
IO CInt
{-# DEPRECATED treeViewGetEnableTreeLines ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewGetEnableTreeLines ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeViewGetEnableTreeLines :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Bool
treeViewGetEnableTreeLines a
treeView = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
result <- gtk_tree_view_get_enable_tree_lines treeView'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr treeView
return result'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetEnableTreeLinesMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewGetEnableTreeLinesMethodInfo a signature where
overloadedMethod = treeViewGetEnableTreeLines
instance O.OverloadedMethodInfo TreeViewGetEnableTreeLinesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewGetEnableTreeLines",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetEnableTreeLines"
})
#endif
foreign import ccall "gtk_tree_view_get_expander_column" gtk_tree_view_get_expander_column ::
Ptr TreeView ->
IO (Ptr Gtk.TreeViewColumn.TreeViewColumn)
{-# DEPRECATED treeViewGetExpanderColumn ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewGetExpanderColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m (Maybe Gtk.TreeViewColumn.TreeViewColumn)
treeViewGetExpanderColumn :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m (Maybe TreeViewColumn)
treeViewGetExpanderColumn a
treeView = IO (Maybe TreeViewColumn) -> m (Maybe TreeViewColumn)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe TreeViewColumn) -> m (Maybe TreeViewColumn))
-> IO (Maybe TreeViewColumn) -> m (Maybe TreeViewColumn)
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
result <- gtk_tree_view_get_expander_column treeView'
maybeResult <- convertIfNonNull result $ \Ptr TreeViewColumn
result' -> do
result'' <- ((ManagedPtr TreeViewColumn -> TreeViewColumn)
-> Ptr TreeViewColumn -> IO TreeViewColumn
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TreeViewColumn -> TreeViewColumn
Gtk.TreeViewColumn.TreeViewColumn) Ptr TreeViewColumn
result'
return result''
touchManagedPtr treeView
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TreeViewGetExpanderColumnMethodInfo
instance (signature ~ (m (Maybe Gtk.TreeViewColumn.TreeViewColumn)), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewGetExpanderColumnMethodInfo a signature where
overloadedMethod = treeViewGetExpanderColumn
instance O.OverloadedMethodInfo TreeViewGetExpanderColumnMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewGetExpanderColumn",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetExpanderColumn"
})
#endif
foreign import ccall "gtk_tree_view_get_fixed_height_mode" gtk_tree_view_get_fixed_height_mode ::
Ptr TreeView ->
IO CInt
{-# DEPRECATED treeViewGetFixedHeightMode ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewGetFixedHeightMode ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeViewGetFixedHeightMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Bool
treeViewGetFixedHeightMode a
treeView = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
result <- gtk_tree_view_get_fixed_height_mode treeView'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr treeView
return result'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetFixedHeightModeMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewGetFixedHeightModeMethodInfo a signature where
overloadedMethod = treeViewGetFixedHeightMode
instance O.OverloadedMethodInfo TreeViewGetFixedHeightModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewGetFixedHeightMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetFixedHeightMode"
})
#endif
foreign import ccall "gtk_tree_view_get_grid_lines" gtk_tree_view_get_grid_lines ::
Ptr TreeView ->
IO CUInt
{-# DEPRECATED treeViewGetGridLines ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewGetGridLines ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Gtk.Enums.TreeViewGridLines
treeViewGetGridLines :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m TreeViewGridLines
treeViewGetGridLines a
treeView = IO TreeViewGridLines -> m TreeViewGridLines
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TreeViewGridLines -> m TreeViewGridLines)
-> IO TreeViewGridLines -> m TreeViewGridLines
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
result <- gtk_tree_view_get_grid_lines treeView'
let result' = (Int -> TreeViewGridLines
forall a. Enum a => Int -> a
toEnum (Int -> TreeViewGridLines)
-> (CUInt -> Int) -> CUInt -> TreeViewGridLines
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
touchManagedPtr treeView
return result'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetGridLinesMethodInfo
instance (signature ~ (m Gtk.Enums.TreeViewGridLines), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewGetGridLinesMethodInfo a signature where
overloadedMethod = treeViewGetGridLines
instance O.OverloadedMethodInfo TreeViewGetGridLinesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewGetGridLines",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetGridLines"
})
#endif
foreign import ccall "gtk_tree_view_get_headers_clickable" ::
Ptr TreeView ->
IO CInt
{-# DEPRECATED treeViewGetHeadersClickable ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewGetHeadersClickable ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
a
treeView = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
result <- gtk_tree_view_get_headers_clickable treeView'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr treeView
return result'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetHeadersClickableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewGetHeadersClickableMethodInfo a signature where
overloadedMethod = treeViewGetHeadersClickable
instance O.OverloadedMethodInfo TreeViewGetHeadersClickableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewGetHeadersClickable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetHeadersClickable"
})
#endif
foreign import ccall "gtk_tree_view_get_headers_visible" ::
Ptr TreeView ->
IO CInt
{-# DEPRECATED treeViewGetHeadersVisible ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewGetHeadersVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
a
treeView = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
result <- gtk_tree_view_get_headers_visible treeView'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr treeView
return result'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetHeadersVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewGetHeadersVisibleMethodInfo a signature where
overloadedMethod = treeViewGetHeadersVisible
instance O.OverloadedMethodInfo TreeViewGetHeadersVisibleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewGetHeadersVisible",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetHeadersVisible"
})
#endif
foreign import ccall "gtk_tree_view_get_hover_expand" gtk_tree_view_get_hover_expand ::
Ptr TreeView ->
IO CInt
{-# DEPRECATED treeViewGetHoverExpand ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewGetHoverExpand ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeViewGetHoverExpand :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Bool
treeViewGetHoverExpand a
treeView = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
result <- gtk_tree_view_get_hover_expand treeView'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr treeView
return result'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetHoverExpandMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewGetHoverExpandMethodInfo a signature where
overloadedMethod = treeViewGetHoverExpand
instance O.OverloadedMethodInfo TreeViewGetHoverExpandMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewGetHoverExpand",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetHoverExpand"
})
#endif
foreign import ccall "gtk_tree_view_get_hover_selection" gtk_tree_view_get_hover_selection ::
Ptr TreeView ->
IO CInt
{-# DEPRECATED treeViewGetHoverSelection ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewGetHoverSelection ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeViewGetHoverSelection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Bool
treeViewGetHoverSelection a
treeView = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
result <- gtk_tree_view_get_hover_selection treeView'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr treeView
return result'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetHoverSelectionMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewGetHoverSelectionMethodInfo a signature where
overloadedMethod = treeViewGetHoverSelection
instance O.OverloadedMethodInfo TreeViewGetHoverSelectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewGetHoverSelection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetHoverSelection"
})
#endif
foreign import ccall "gtk_tree_view_get_level_indentation" gtk_tree_view_get_level_indentation ::
Ptr TreeView ->
IO Int32
{-# DEPRECATED treeViewGetLevelIndentation ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewGetLevelIndentation ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Int32
treeViewGetLevelIndentation :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Int32
treeViewGetLevelIndentation a
treeView = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
result <- gtk_tree_view_get_level_indentation treeView'
touchManagedPtr treeView
return result
#if defined(ENABLE_OVERLOADING)
data TreeViewGetLevelIndentationMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewGetLevelIndentationMethodInfo a signature where
overloadedMethod = treeViewGetLevelIndentation
instance O.OverloadedMethodInfo TreeViewGetLevelIndentationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewGetLevelIndentation",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetLevelIndentation"
})
#endif
foreign import ccall "gtk_tree_view_get_model" gtk_tree_view_get_model ::
Ptr TreeView ->
IO (Ptr Gtk.TreeModel.TreeModel)
{-# DEPRECATED treeViewGetModel ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewGetModel ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m (Maybe Gtk.TreeModel.TreeModel)
treeViewGetModel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m (Maybe TreeModel)
treeViewGetModel a
treeView = IO (Maybe TreeModel) -> m (Maybe TreeModel)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe TreeModel) -> m (Maybe TreeModel))
-> IO (Maybe TreeModel) -> m (Maybe TreeModel)
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
result <- gtk_tree_view_get_model treeView'
maybeResult <- convertIfNonNull result $ \Ptr TreeModel
result' -> do
result'' <- ((ManagedPtr TreeModel -> TreeModel)
-> Ptr TreeModel -> IO TreeModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TreeModel -> TreeModel
Gtk.TreeModel.TreeModel) Ptr TreeModel
result'
return result''
touchManagedPtr treeView
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TreeViewGetModelMethodInfo
instance (signature ~ (m (Maybe Gtk.TreeModel.TreeModel)), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewGetModelMethodInfo a signature where
overloadedMethod = treeViewGetModel
instance O.OverloadedMethodInfo TreeViewGetModelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewGetModel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetModel"
})
#endif
foreign import ccall "gtk_tree_view_get_n_columns" gtk_tree_view_get_n_columns ::
Ptr TreeView ->
IO Word32
{-# DEPRECATED treeViewGetNColumns ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewGetNColumns ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Word32
treeViewGetNColumns :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Word32
treeViewGetNColumns a
treeView = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
result <- gtk_tree_view_get_n_columns treeView'
touchManagedPtr treeView
return result
#if defined(ENABLE_OVERLOADING)
data TreeViewGetNColumnsMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewGetNColumnsMethodInfo a signature where
overloadedMethod = treeViewGetNColumns
instance O.OverloadedMethodInfo TreeViewGetNColumnsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewGetNColumns",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetNColumns"
})
#endif
foreign import ccall "gtk_tree_view_get_path_at_pos" gtk_tree_view_get_path_at_pos ::
Ptr TreeView ->
Int32 ->
Int32 ->
Ptr (Ptr Gtk.TreePath.TreePath) ->
Ptr (Ptr Gtk.TreeViewColumn.TreeViewColumn) ->
Ptr Int32 ->
Ptr Int32 ->
IO CInt
{-# DEPRECATED treeViewGetPathAtPos ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewGetPathAtPos ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m ((Bool, Maybe Gtk.TreePath.TreePath, Maybe Gtk.TreeViewColumn.TreeViewColumn, Int32, Int32))
treeViewGetPathAtPos :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m (Bool, Maybe TreePath, Maybe TreeViewColumn, Int32, Int32)
treeViewGetPathAtPos a
treeView Int32
x Int32
y = IO (Bool, Maybe TreePath, Maybe TreeViewColumn, Int32, Int32)
-> m (Bool, Maybe TreePath, Maybe TreeViewColumn, Int32, Int32)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Maybe TreePath, Maybe TreeViewColumn, Int32, Int32)
-> m (Bool, Maybe TreePath, Maybe TreeViewColumn, Int32, Int32))
-> IO (Bool, Maybe TreePath, Maybe TreeViewColumn, Int32, Int32)
-> m (Bool, Maybe TreePath, Maybe TreeViewColumn, Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
path <- callocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
column <- callocMem :: IO (Ptr (Ptr Gtk.TreeViewColumn.TreeViewColumn))
cellX <- allocMem :: IO (Ptr Int32)
cellY <- allocMem :: IO (Ptr Int32)
result <- gtk_tree_view_get_path_at_pos treeView' x y path column cellX cellY
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
path' <- peek path
maybePath' <- convertIfNonNull path' $ \Ptr TreePath
path'' -> do
path''' <- ((ManagedPtr TreePath -> TreePath) -> Ptr TreePath -> IO TreePath
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath) Ptr TreePath
path''
return path'''
column' <- peek column
maybeColumn' <- convertIfNonNull column' $ \Ptr TreeViewColumn
column'' -> do
column''' <- ((ManagedPtr TreeViewColumn -> TreeViewColumn)
-> Ptr TreeViewColumn -> IO TreeViewColumn
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TreeViewColumn -> TreeViewColumn
Gtk.TreeViewColumn.TreeViewColumn) Ptr TreeViewColumn
column''
return column'''
cellX' <- peek cellX
cellY' <- peek cellY
touchManagedPtr treeView
freeMem path
freeMem column
freeMem cellX
freeMem cellY
return (result', maybePath', maybeColumn', cellX', cellY')
#if defined(ENABLE_OVERLOADING)
data TreeViewGetPathAtPosMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ((Bool, Maybe Gtk.TreePath.TreePath, Maybe Gtk.TreeViewColumn.TreeViewColumn, Int32, Int32))), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewGetPathAtPosMethodInfo a signature where
overloadedMethod = treeViewGetPathAtPos
instance O.OverloadedMethodInfo TreeViewGetPathAtPosMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewGetPathAtPos",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetPathAtPos"
})
#endif
foreign import ccall "gtk_tree_view_get_reorderable" gtk_tree_view_get_reorderable ::
Ptr TreeView ->
IO CInt
{-# DEPRECATED treeViewGetReorderable ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewGetReorderable ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeViewGetReorderable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Bool
treeViewGetReorderable a
treeView = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
result <- gtk_tree_view_get_reorderable treeView'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr treeView
return result'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetReorderableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewGetReorderableMethodInfo a signature where
overloadedMethod = treeViewGetReorderable
instance O.OverloadedMethodInfo TreeViewGetReorderableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewGetReorderable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetReorderable"
})
#endif
foreign import ccall "gtk_tree_view_get_rubber_banding" gtk_tree_view_get_rubber_banding ::
Ptr TreeView ->
IO CInt
{-# DEPRECATED treeViewGetRubberBanding ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewGetRubberBanding ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeViewGetRubberBanding :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Bool
treeViewGetRubberBanding a
treeView = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
result <- gtk_tree_view_get_rubber_banding treeView'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr treeView
return result'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetRubberBandingMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewGetRubberBandingMethodInfo a signature where
overloadedMethod = treeViewGetRubberBanding
instance O.OverloadedMethodInfo TreeViewGetRubberBandingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewGetRubberBanding",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetRubberBanding"
})
#endif
foreign import ccall "gtk_tree_view_get_search_column" gtk_tree_view_get_search_column ::
Ptr TreeView ->
IO Int32
{-# DEPRECATED treeViewGetSearchColumn ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewGetSearchColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Int32
treeViewGetSearchColumn :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Int32
treeViewGetSearchColumn a
treeView = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
result <- gtk_tree_view_get_search_column treeView'
touchManagedPtr treeView
return result
#if defined(ENABLE_OVERLOADING)
data TreeViewGetSearchColumnMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewGetSearchColumnMethodInfo a signature where
overloadedMethod = treeViewGetSearchColumn
instance O.OverloadedMethodInfo TreeViewGetSearchColumnMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewGetSearchColumn",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetSearchColumn"
})
#endif
foreign import ccall "gtk_tree_view_get_search_entry" gtk_tree_view_get_search_entry ::
Ptr TreeView ->
IO (Ptr Gtk.Editable.Editable)
{-# DEPRECATED treeViewGetSearchEntry ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewGetSearchEntry ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m (Maybe Gtk.Editable.Editable)
treeViewGetSearchEntry :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m (Maybe Editable)
treeViewGetSearchEntry a
treeView = IO (Maybe Editable) -> m (Maybe Editable)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Editable) -> m (Maybe Editable))
-> IO (Maybe Editable) -> m (Maybe Editable)
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
result <- gtk_tree_view_get_search_entry treeView'
maybeResult <- convertIfNonNull result $ \Ptr Editable
result' -> do
result'' <- ((ManagedPtr Editable -> Editable) -> Ptr Editable -> IO Editable
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Editable -> Editable
Gtk.Editable.Editable) Ptr Editable
result'
return result''
touchManagedPtr treeView
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TreeViewGetSearchEntryMethodInfo
instance (signature ~ (m (Maybe Gtk.Editable.Editable)), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewGetSearchEntryMethodInfo a signature where
overloadedMethod = treeViewGetSearchEntry
instance O.OverloadedMethodInfo TreeViewGetSearchEntryMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewGetSearchEntry",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetSearchEntry"
})
#endif
foreign import ccall "gtk_tree_view_get_selection" gtk_tree_view_get_selection ::
Ptr TreeView ->
IO (Ptr Gtk.TreeSelection.TreeSelection)
{-# DEPRECATED treeViewGetSelection ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewGetSelection ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Gtk.TreeSelection.TreeSelection
treeViewGetSelection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m TreeSelection
treeViewGetSelection a
treeView = IO TreeSelection -> m TreeSelection
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TreeSelection -> m TreeSelection)
-> IO TreeSelection -> m TreeSelection
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
result <- gtk_tree_view_get_selection treeView'
checkUnexpectedReturnNULL "treeViewGetSelection" result
result' <- (newObject Gtk.TreeSelection.TreeSelection) result
touchManagedPtr treeView
return result'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetSelectionMethodInfo
instance (signature ~ (m Gtk.TreeSelection.TreeSelection), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewGetSelectionMethodInfo a signature where
overloadedMethod = treeViewGetSelection
instance O.OverloadedMethodInfo TreeViewGetSelectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewGetSelection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetSelection"
})
#endif
foreign import ccall "gtk_tree_view_get_show_expanders" gtk_tree_view_get_show_expanders ::
Ptr TreeView ->
IO CInt
{-# DEPRECATED treeViewGetShowExpanders ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewGetShowExpanders ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeViewGetShowExpanders :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Bool
treeViewGetShowExpanders a
treeView = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
result <- gtk_tree_view_get_show_expanders treeView'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr treeView
return result'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetShowExpandersMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewGetShowExpandersMethodInfo a signature where
overloadedMethod = treeViewGetShowExpanders
instance O.OverloadedMethodInfo TreeViewGetShowExpandersMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewGetShowExpanders",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetShowExpanders"
})
#endif
foreign import ccall "gtk_tree_view_get_tooltip_column" gtk_tree_view_get_tooltip_column ::
Ptr TreeView ->
IO Int32
{-# DEPRECATED treeViewGetTooltipColumn ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewGetTooltipColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Int32
treeViewGetTooltipColumn :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Int32
treeViewGetTooltipColumn a
treeView = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
result <- gtk_tree_view_get_tooltip_column treeView'
touchManagedPtr treeView
return result
#if defined(ENABLE_OVERLOADING)
data TreeViewGetTooltipColumnMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewGetTooltipColumnMethodInfo a signature where
overloadedMethod = treeViewGetTooltipColumn
instance O.OverloadedMethodInfo TreeViewGetTooltipColumnMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewGetTooltipColumn",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetTooltipColumn"
})
#endif
foreign import ccall "gtk_tree_view_get_tooltip_context" gtk_tree_view_get_tooltip_context ::
Ptr TreeView ->
Int32 ->
Int32 ->
CInt ->
Ptr (Ptr Gtk.TreeModel.TreeModel) ->
Ptr (Ptr Gtk.TreePath.TreePath) ->
Ptr Gtk.TreeIter.TreeIter ->
IO CInt
{-# DEPRECATED treeViewGetTooltipContext ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewGetTooltipContext ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> Bool
-> m ((Bool, Maybe Gtk.TreeModel.TreeModel, Gtk.TreePath.TreePath, Gtk.TreeIter.TreeIter))
treeViewGetTooltipContext :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> Bool
-> m (Bool, Maybe TreeModel, TreePath, TreeIter)
treeViewGetTooltipContext a
treeView Int32
x Int32
y Bool
keyboardTip = IO (Bool, Maybe TreeModel, TreePath, TreeIter)
-> m (Bool, Maybe TreeModel, TreePath, TreeIter)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Maybe TreeModel, TreePath, TreeIter)
-> m (Bool, Maybe TreeModel, TreePath, TreeIter))
-> IO (Bool, Maybe TreeModel, TreePath, TreeIter)
-> m (Bool, Maybe TreeModel, TreePath, TreeIter)
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
let keyboardTip' = (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
keyboardTip
model <- callocMem :: IO (Ptr (Ptr Gtk.TreeModel.TreeModel))
path <- callocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
iter <- SP.callocBoxedBytes 32 :: IO (Ptr Gtk.TreeIter.TreeIter)
result <- gtk_tree_view_get_tooltip_context treeView' x y keyboardTip' model path iter
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
model' <- peek model
maybeModel' <- convertIfNonNull model' $ \Ptr TreeModel
model'' -> do
model''' <- ((ManagedPtr TreeModel -> TreeModel)
-> Ptr TreeModel -> IO TreeModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TreeModel -> TreeModel
Gtk.TreeModel.TreeModel) Ptr TreeModel
model''
return model'''
path' <- peek path
path'' <- (wrapBoxed Gtk.TreePath.TreePath) path'
iter' <- (wrapBoxed Gtk.TreeIter.TreeIter) iter
touchManagedPtr treeView
freeMem model
freeMem path
return (result', maybeModel', path'', iter')
#if defined(ENABLE_OVERLOADING)
data TreeViewGetTooltipContextMethodInfo
instance (signature ~ (Int32 -> Int32 -> Bool -> m ((Bool, Maybe Gtk.TreeModel.TreeModel, Gtk.TreePath.TreePath, Gtk.TreeIter.TreeIter))), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewGetTooltipContextMethodInfo a signature where
overloadedMethod = treeViewGetTooltipContext
instance O.OverloadedMethodInfo TreeViewGetTooltipContextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewGetTooltipContext",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetTooltipContext"
})
#endif
foreign import ccall "gtk_tree_view_get_visible_range" gtk_tree_view_get_visible_range ::
Ptr TreeView ->
Ptr (Ptr Gtk.TreePath.TreePath) ->
Ptr (Ptr Gtk.TreePath.TreePath) ->
IO CInt
{-# DEPRECATED treeViewGetVisibleRange ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewGetVisibleRange ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m ((Bool, Gtk.TreePath.TreePath, Gtk.TreePath.TreePath))
treeViewGetVisibleRange :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m (Bool, TreePath, TreePath)
treeViewGetVisibleRange a
treeView = IO (Bool, TreePath, TreePath) -> m (Bool, TreePath, TreePath)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, TreePath, TreePath) -> m (Bool, TreePath, TreePath))
-> IO (Bool, TreePath, TreePath) -> m (Bool, TreePath, TreePath)
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
startPath <- callocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
endPath <- callocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
result <- gtk_tree_view_get_visible_range treeView' startPath endPath
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
startPath' <- peek startPath
startPath'' <- (wrapBoxed Gtk.TreePath.TreePath) startPath'
endPath' <- peek endPath
endPath'' <- (wrapBoxed Gtk.TreePath.TreePath) endPath'
touchManagedPtr treeView
freeMem startPath
freeMem endPath
return (result', startPath'', endPath'')
#if defined(ENABLE_OVERLOADING)
data TreeViewGetVisibleRangeMethodInfo
instance (signature ~ (m ((Bool, Gtk.TreePath.TreePath, Gtk.TreePath.TreePath))), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewGetVisibleRangeMethodInfo a signature where
overloadedMethod = treeViewGetVisibleRange
instance O.OverloadedMethodInfo TreeViewGetVisibleRangeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewGetVisibleRange",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetVisibleRange"
})
#endif
foreign import ccall "gtk_tree_view_get_visible_rect" gtk_tree_view_get_visible_rect ::
Ptr TreeView ->
Ptr Gdk.Rectangle.Rectangle ->
IO ()
{-# DEPRECATED treeViewGetVisibleRect ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewGetVisibleRect ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m (Gdk.Rectangle.Rectangle)
treeViewGetVisibleRect :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Rectangle
treeViewGetVisibleRect a
treeView = IO Rectangle -> m Rectangle
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Rectangle -> m Rectangle) -> IO Rectangle -> m Rectangle
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
visibleRect <- SP.callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle.Rectangle)
gtk_tree_view_get_visible_rect treeView' visibleRect
visibleRect' <- (wrapBoxed Gdk.Rectangle.Rectangle) visibleRect
touchManagedPtr treeView
return visibleRect'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetVisibleRectMethodInfo
instance (signature ~ (m (Gdk.Rectangle.Rectangle)), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewGetVisibleRectMethodInfo a signature where
overloadedMethod = treeViewGetVisibleRect
instance O.OverloadedMethodInfo TreeViewGetVisibleRectMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewGetVisibleRect",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetVisibleRect"
})
#endif
foreign import ccall "gtk_tree_view_insert_column" gtk_tree_view_insert_column ::
Ptr TreeView ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
Int32 ->
IO Int32
{-# DEPRECATED treeViewInsertColumn ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewInsertColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) =>
a
-> b
-> Int32
-> m Int32
treeViewInsertColumn :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeView a, IsTreeViewColumn b) =>
a -> b -> Int32 -> m Int32
treeViewInsertColumn a
treeView b
column Int32
position = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
column' <- unsafeManagedPtrCastPtr column
result <- gtk_tree_view_insert_column treeView' column' position
touchManagedPtr treeView
touchManagedPtr column
return result
#if defined(ENABLE_OVERLOADING)
data TreeViewInsertColumnMethodInfo
instance (signature ~ (b -> Int32 -> m Int32), MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) => O.OverloadedMethod TreeViewInsertColumnMethodInfo a signature where
overloadedMethod = treeViewInsertColumn
instance O.OverloadedMethodInfo TreeViewInsertColumnMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewInsertColumn",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewInsertColumn"
})
#endif
foreign import ccall "gtk_tree_view_insert_column_with_data_func" gtk_tree_view_insert_column_with_data_func ::
Ptr TreeView ->
Int32 ->
CString ->
Ptr Gtk.CellRenderer.CellRenderer ->
FunPtr Gtk.Callbacks.C_TreeCellDataFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO Int32
{-# DEPRECATED treeViewInsertColumnWithDataFunc ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewInsertColumnWithDataFunc ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> Int32
-> T.Text
-> b
-> Gtk.Callbacks.TreeCellDataFunc
-> m Int32
treeViewInsertColumnWithDataFunc :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeView a, IsCellRenderer b) =>
a -> Int32 -> Text -> b -> TreeCellDataFunc -> m Int32
treeViewInsertColumnWithDataFunc a
treeView Int32
position Text
title b
cell TreeCellDataFunc
func = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
title' <- textToCString title
cell' <- unsafeManagedPtrCastPtr cell
func' <- Gtk.Callbacks.mk_TreeCellDataFunc (Gtk.Callbacks.wrap_TreeCellDataFunc Nothing (Gtk.Callbacks.drop_closures_TreeCellDataFunc func))
let data_ = FunPtr C_TreeCellDataFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_TreeCellDataFunc
func'
let dnotify = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
SP.safeFreeFunPtrPtr
result <- gtk_tree_view_insert_column_with_data_func treeView' position title' cell' func' data_ dnotify
touchManagedPtr treeView
touchManagedPtr cell
freeMem title'
return result
#if defined(ENABLE_OVERLOADING)
data TreeViewInsertColumnWithDataFuncMethodInfo
instance (signature ~ (Int32 -> T.Text -> b -> Gtk.Callbacks.TreeCellDataFunc -> m Int32), MonadIO m, IsTreeView a, Gtk.CellRenderer.IsCellRenderer b) => O.OverloadedMethod TreeViewInsertColumnWithDataFuncMethodInfo a signature where
overloadedMethod = treeViewInsertColumnWithDataFunc
instance O.OverloadedMethodInfo TreeViewInsertColumnWithDataFuncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewInsertColumnWithDataFunc",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewInsertColumnWithDataFunc"
})
#endif
foreign import ccall "gtk_tree_view_is_blank_at_pos" gtk_tree_view_is_blank_at_pos ::
Ptr TreeView ->
Int32 ->
Int32 ->
Ptr (Ptr Gtk.TreePath.TreePath) ->
Ptr (Ptr Gtk.TreeViewColumn.TreeViewColumn) ->
Ptr Int32 ->
Ptr Int32 ->
IO CInt
{-# DEPRECATED treeViewIsBlankAtPos ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewIsBlankAtPos ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m ((Bool, Maybe Gtk.TreePath.TreePath, Maybe Gtk.TreeViewColumn.TreeViewColumn, Int32, Int32))
treeViewIsBlankAtPos :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m (Bool, Maybe TreePath, Maybe TreeViewColumn, Int32, Int32)
treeViewIsBlankAtPos a
treeView Int32
x Int32
y = IO (Bool, Maybe TreePath, Maybe TreeViewColumn, Int32, Int32)
-> m (Bool, Maybe TreePath, Maybe TreeViewColumn, Int32, Int32)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Maybe TreePath, Maybe TreeViewColumn, Int32, Int32)
-> m (Bool, Maybe TreePath, Maybe TreeViewColumn, Int32, Int32))
-> IO (Bool, Maybe TreePath, Maybe TreeViewColumn, Int32, Int32)
-> m (Bool, Maybe TreePath, Maybe TreeViewColumn, Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
path <- callocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
column <- callocMem :: IO (Ptr (Ptr Gtk.TreeViewColumn.TreeViewColumn))
cellX <- allocMem :: IO (Ptr Int32)
cellY <- allocMem :: IO (Ptr Int32)
result <- gtk_tree_view_is_blank_at_pos treeView' x y path column cellX cellY
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
path' <- peek path
maybePath' <- convertIfNonNull path' $ \Ptr TreePath
path'' -> do
path''' <- ((ManagedPtr TreePath -> TreePath) -> Ptr TreePath -> IO TreePath
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath) Ptr TreePath
path''
return path'''
column' <- peek column
maybeColumn' <- convertIfNonNull column' $ \Ptr TreeViewColumn
column'' -> do
column''' <- ((ManagedPtr TreeViewColumn -> TreeViewColumn)
-> Ptr TreeViewColumn -> IO TreeViewColumn
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TreeViewColumn -> TreeViewColumn
Gtk.TreeViewColumn.TreeViewColumn) Ptr TreeViewColumn
column''
return column'''
cellX' <- peek cellX
cellY' <- peek cellY
touchManagedPtr treeView
freeMem path
freeMem column
freeMem cellX
freeMem cellY
return (result', maybePath', maybeColumn', cellX', cellY')
#if defined(ENABLE_OVERLOADING)
data TreeViewIsBlankAtPosMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ((Bool, Maybe Gtk.TreePath.TreePath, Maybe Gtk.TreeViewColumn.TreeViewColumn, Int32, Int32))), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewIsBlankAtPosMethodInfo a signature where
overloadedMethod = treeViewIsBlankAtPos
instance O.OverloadedMethodInfo TreeViewIsBlankAtPosMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewIsBlankAtPos",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewIsBlankAtPos"
})
#endif
foreign import ccall "gtk_tree_view_is_rubber_banding_active" gtk_tree_view_is_rubber_banding_active ::
Ptr TreeView ->
IO CInt
{-# DEPRECATED treeViewIsRubberBandingActive ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewIsRubberBandingActive ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeViewIsRubberBandingActive :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Bool
treeViewIsRubberBandingActive a
treeView = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
result <- gtk_tree_view_is_rubber_banding_active treeView'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr treeView
return result'
#if defined(ENABLE_OVERLOADING)
data TreeViewIsRubberBandingActiveMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewIsRubberBandingActiveMethodInfo a signature where
overloadedMethod = treeViewIsRubberBandingActive
instance O.OverloadedMethodInfo TreeViewIsRubberBandingActiveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewIsRubberBandingActive",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewIsRubberBandingActive"
})
#endif
foreign import ccall "gtk_tree_view_map_expanded_rows" gtk_tree_view_map_expanded_rows ::
Ptr TreeView ->
FunPtr Gtk.Callbacks.C_TreeViewMappingFunc ->
Ptr () ->
IO ()
{-# DEPRECATED treeViewMapExpandedRows ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewMapExpandedRows ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Gtk.Callbacks.TreeViewMappingFunc
-> m ()
treeViewMapExpandedRows :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> TreeViewMappingFunc -> m ()
treeViewMapExpandedRows a
treeView TreeViewMappingFunc
func = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
func' <- Gtk.Callbacks.mk_TreeViewMappingFunc (Gtk.Callbacks.wrap_TreeViewMappingFunc Nothing (Gtk.Callbacks.drop_closures_TreeViewMappingFunc func))
let data_ = Ptr a
forall a. Ptr a
nullPtr
gtk_tree_view_map_expanded_rows treeView' func' data_
safeFreeFunPtr $ castFunPtrToPtr func'
touchManagedPtr treeView
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewMapExpandedRowsMethodInfo
instance (signature ~ (Gtk.Callbacks.TreeViewMappingFunc -> m ()), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewMapExpandedRowsMethodInfo a signature where
overloadedMethod = treeViewMapExpandedRows
instance O.OverloadedMethodInfo TreeViewMapExpandedRowsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewMapExpandedRows",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewMapExpandedRows"
})
#endif
foreign import ccall "gtk_tree_view_move_column_after" gtk_tree_view_move_column_after ::
Ptr TreeView ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
IO ()
{-# DEPRECATED treeViewMoveColumnAfter ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewMoveColumnAfter ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b, Gtk.TreeViewColumn.IsTreeViewColumn c) =>
a
-> b
-> Maybe (c)
-> m ()
treeViewMoveColumnAfter :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsTreeView a, IsTreeViewColumn b,
IsTreeViewColumn c) =>
a -> b -> Maybe c -> m ()
treeViewMoveColumnAfter a
treeView b
column Maybe c
baseColumn = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
column' <- unsafeManagedPtrCastPtr column
maybeBaseColumn <- case baseColumn of
Maybe c
Nothing -> Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
forall a. Ptr a
FP.nullPtr
Just c
jBaseColumn -> do
jBaseColumn' <- c -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jBaseColumn
return jBaseColumn'
gtk_tree_view_move_column_after treeView' column' maybeBaseColumn
touchManagedPtr treeView
touchManagedPtr column
whenJust baseColumn touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewMoveColumnAfterMethodInfo
instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b, Gtk.TreeViewColumn.IsTreeViewColumn c) => O.OverloadedMethod TreeViewMoveColumnAfterMethodInfo a signature where
overloadedMethod = treeViewMoveColumnAfter
instance O.OverloadedMethodInfo TreeViewMoveColumnAfterMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewMoveColumnAfter",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewMoveColumnAfter"
})
#endif
foreign import ccall "gtk_tree_view_remove_column" gtk_tree_view_remove_column ::
Ptr TreeView ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
IO Int32
{-# DEPRECATED treeViewRemoveColumn ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewRemoveColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) =>
a
-> b
-> m Int32
treeViewRemoveColumn :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeView a, IsTreeViewColumn b) =>
a -> b -> m Int32
treeViewRemoveColumn a
treeView b
column = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
column' <- unsafeManagedPtrCastPtr column
result <- gtk_tree_view_remove_column treeView' column'
touchManagedPtr treeView
touchManagedPtr column
return result
#if defined(ENABLE_OVERLOADING)
data TreeViewRemoveColumnMethodInfo
instance (signature ~ (b -> m Int32), MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) => O.OverloadedMethod TreeViewRemoveColumnMethodInfo a signature where
overloadedMethod = treeViewRemoveColumn
instance O.OverloadedMethodInfo TreeViewRemoveColumnMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewRemoveColumn",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewRemoveColumn"
})
#endif
foreign import ccall "gtk_tree_view_row_activated" gtk_tree_view_row_activated ::
Ptr TreeView ->
Ptr Gtk.TreePath.TreePath ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
IO ()
{-# DEPRECATED treeViewRowActivated ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewRowActivated ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) =>
a
-> Gtk.TreePath.TreePath
-> Maybe (b)
-> m ()
treeViewRowActivated :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeView a, IsTreeViewColumn b) =>
a -> TreePath -> Maybe b -> m ()
treeViewRowActivated a
treeView TreePath
path Maybe b
column = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
path' <- unsafeManagedPtrGetPtr path
maybeColumn <- case column of
Maybe b
Nothing -> Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
forall a. Ptr a
FP.nullPtr
Just b
jColumn -> do
jColumn' <- b -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jColumn
return jColumn'
gtk_tree_view_row_activated treeView' path' maybeColumn
touchManagedPtr treeView
touchManagedPtr path
whenJust column touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewRowActivatedMethodInfo
instance (signature ~ (Gtk.TreePath.TreePath -> Maybe (b) -> m ()), MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) => O.OverloadedMethod TreeViewRowActivatedMethodInfo a signature where
overloadedMethod = treeViewRowActivated
instance O.OverloadedMethodInfo TreeViewRowActivatedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewRowActivated",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewRowActivated"
})
#endif
foreign import ccall "gtk_tree_view_row_expanded" gtk_tree_view_row_expanded ::
Ptr TreeView ->
Ptr Gtk.TreePath.TreePath ->
IO CInt
{-# DEPRECATED treeViewRowExpanded ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewRowExpanded ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Gtk.TreePath.TreePath
-> m Bool
treeViewRowExpanded :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> TreePath -> m Bool
treeViewRowExpanded a
treeView TreePath
path = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
path' <- unsafeManagedPtrGetPtr path
result <- gtk_tree_view_row_expanded treeView' path'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr treeView
touchManagedPtr path
return result'
#if defined(ENABLE_OVERLOADING)
data TreeViewRowExpandedMethodInfo
instance (signature ~ (Gtk.TreePath.TreePath -> m Bool), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewRowExpandedMethodInfo a signature where
overloadedMethod = treeViewRowExpanded
instance O.OverloadedMethodInfo TreeViewRowExpandedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewRowExpanded",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewRowExpanded"
})
#endif
foreign import ccall "gtk_tree_view_scroll_to_cell" gtk_tree_view_scroll_to_cell ::
Ptr TreeView ->
Ptr Gtk.TreePath.TreePath ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
CInt ->
CFloat ->
CFloat ->
IO ()
{-# DEPRECATED treeViewScrollToCell ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewScrollToCell ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) =>
a
-> Maybe (Gtk.TreePath.TreePath)
-> Maybe (b)
-> Bool
-> Float
-> Float
-> m ()
treeViewScrollToCell :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeView a, IsTreeViewColumn b) =>
a -> Maybe TreePath -> Maybe b -> Bool -> Float -> Float -> m ()
treeViewScrollToCell a
treeView Maybe TreePath
path Maybe b
column Bool
useAlign Float
rowAlign Float
colAlign = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
maybePath <- case path of
Maybe TreePath
Nothing -> Ptr TreePath -> IO (Ptr TreePath)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreePath
forall a. Ptr a
FP.nullPtr
Just TreePath
jPath -> do
jPath' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
jPath
return jPath'
maybeColumn <- case column of
Maybe b
Nothing -> Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
forall a. Ptr a
FP.nullPtr
Just b
jColumn -> do
jColumn' <- b -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jColumn
return jColumn'
let useAlign' = (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
useAlign
let rowAlign' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
rowAlign
let colAlign' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
colAlign
gtk_tree_view_scroll_to_cell treeView' maybePath maybeColumn useAlign' rowAlign' colAlign'
touchManagedPtr treeView
whenJust path touchManagedPtr
whenJust column touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewScrollToCellMethodInfo
instance (signature ~ (Maybe (Gtk.TreePath.TreePath) -> Maybe (b) -> Bool -> Float -> Float -> m ()), MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) => O.OverloadedMethod TreeViewScrollToCellMethodInfo a signature where
overloadedMethod = treeViewScrollToCell
instance O.OverloadedMethodInfo TreeViewScrollToCellMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewScrollToCell",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewScrollToCell"
})
#endif
foreign import ccall "gtk_tree_view_scroll_to_point" gtk_tree_view_scroll_to_point ::
Ptr TreeView ->
Int32 ->
Int32 ->
IO ()
{-# DEPRECATED treeViewScrollToPoint ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewScrollToPoint ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m ()
treeViewScrollToPoint :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Int32 -> Int32 -> m ()
treeViewScrollToPoint a
treeView Int32
treeX Int32
treeY = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
gtk_tree_view_scroll_to_point treeView' treeX treeY
touchManagedPtr treeView
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewScrollToPointMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewScrollToPointMethodInfo a signature where
overloadedMethod = treeViewScrollToPoint
instance O.OverloadedMethodInfo TreeViewScrollToPointMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewScrollToPoint",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewScrollToPoint"
})
#endif
foreign import ccall "gtk_tree_view_set_activate_on_single_click" gtk_tree_view_set_activate_on_single_click ::
Ptr TreeView ->
CInt ->
IO ()
{-# DEPRECATED treeViewSetActivateOnSingleClick ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewSetActivateOnSingleClick ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Bool
-> m ()
treeViewSetActivateOnSingleClick :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Bool -> m ()
treeViewSetActivateOnSingleClick a
treeView Bool
single = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
let single' = (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
single
gtk_tree_view_set_activate_on_single_click treeView' single'
touchManagedPtr treeView
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetActivateOnSingleClickMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewSetActivateOnSingleClickMethodInfo a signature where
overloadedMethod = treeViewSetActivateOnSingleClick
instance O.OverloadedMethodInfo TreeViewSetActivateOnSingleClickMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewSetActivateOnSingleClick",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetActivateOnSingleClick"
})
#endif
foreign import ccall "gtk_tree_view_set_column_drag_function" gtk_tree_view_set_column_drag_function ::
Ptr TreeView ->
FunPtr Gtk.Callbacks.C_TreeViewColumnDropFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
{-# DEPRECATED treeViewSetColumnDragFunction ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewSetColumnDragFunction ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Maybe (Gtk.Callbacks.TreeViewColumnDropFunc)
-> m ()
treeViewSetColumnDragFunction :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Maybe TreeViewColumnDropFunc -> m ()
treeViewSetColumnDragFunction a
treeView Maybe TreeViewColumnDropFunc
func = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
maybeFunc <- case func of
Maybe TreeViewColumnDropFunc
Nothing -> FunPtr C_TreeViewColumnDropFunc
-> IO (FunPtr C_TreeViewColumnDropFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_TreeViewColumnDropFunc
forall a. FunPtr a
FP.nullFunPtr
Just TreeViewColumnDropFunc
jFunc -> do
jFunc' <- C_TreeViewColumnDropFunc -> IO (FunPtr C_TreeViewColumnDropFunc)
Gtk.Callbacks.mk_TreeViewColumnDropFunc (Maybe (Ptr (FunPtr C_TreeViewColumnDropFunc))
-> TreeViewColumnDropFunc_WithClosures -> C_TreeViewColumnDropFunc
Gtk.Callbacks.wrap_TreeViewColumnDropFunc Maybe (Ptr (FunPtr C_TreeViewColumnDropFunc))
forall a. Maybe a
Nothing (TreeViewColumnDropFunc -> TreeViewColumnDropFunc_WithClosures
Gtk.Callbacks.drop_closures_TreeViewColumnDropFunc TreeViewColumnDropFunc
jFunc))
return jFunc'
let userData = FunPtr C_TreeViewColumnDropFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_TreeViewColumnDropFunc
maybeFunc
let destroy = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
SP.safeFreeFunPtrPtr
gtk_tree_view_set_column_drag_function treeView' maybeFunc userData destroy
touchManagedPtr treeView
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetColumnDragFunctionMethodInfo
instance (signature ~ (Maybe (Gtk.Callbacks.TreeViewColumnDropFunc) -> m ()), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewSetColumnDragFunctionMethodInfo a signature where
overloadedMethod = treeViewSetColumnDragFunction
instance O.OverloadedMethodInfo TreeViewSetColumnDragFunctionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewSetColumnDragFunction",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetColumnDragFunction"
})
#endif
foreign import ccall "gtk_tree_view_set_cursor" gtk_tree_view_set_cursor ::
Ptr TreeView ->
Ptr Gtk.TreePath.TreePath ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
CInt ->
IO ()
{-# DEPRECATED treeViewSetCursor ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewSetCursor ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) =>
a
-> Gtk.TreePath.TreePath
-> Maybe (b)
-> Bool
-> m ()
treeViewSetCursor :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeView a, IsTreeViewColumn b) =>
a -> TreePath -> Maybe b -> Bool -> m ()
treeViewSetCursor a
treeView TreePath
path Maybe b
focusColumn Bool
startEditing = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
path' <- unsafeManagedPtrGetPtr path
maybeFocusColumn <- case focusColumn of
Maybe b
Nothing -> Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
forall a. Ptr a
FP.nullPtr
Just b
jFocusColumn -> do
jFocusColumn' <- b -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jFocusColumn
return jFocusColumn'
let startEditing' = (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
startEditing
gtk_tree_view_set_cursor treeView' path' maybeFocusColumn startEditing'
touchManagedPtr treeView
touchManagedPtr path
whenJust focusColumn touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetCursorMethodInfo
instance (signature ~ (Gtk.TreePath.TreePath -> Maybe (b) -> Bool -> m ()), MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) => O.OverloadedMethod TreeViewSetCursorMethodInfo a signature where
overloadedMethod = treeViewSetCursor
instance O.OverloadedMethodInfo TreeViewSetCursorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewSetCursor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetCursor"
})
#endif
foreign import ccall "gtk_tree_view_set_cursor_on_cell" gtk_tree_view_set_cursor_on_cell ::
Ptr TreeView ->
Ptr Gtk.TreePath.TreePath ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
Ptr Gtk.CellRenderer.CellRenderer ->
CInt ->
IO ()
{-# DEPRECATED treeViewSetCursorOnCell ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewSetCursorOnCell ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b, Gtk.CellRenderer.IsCellRenderer c) =>
a
-> Gtk.TreePath.TreePath
-> Maybe (b)
-> Maybe (c)
-> Bool
-> m ()
treeViewSetCursorOnCell :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsTreeView a, IsTreeViewColumn b,
IsCellRenderer c) =>
a -> TreePath -> Maybe b -> Maybe c -> Bool -> m ()
treeViewSetCursorOnCell a
treeView TreePath
path Maybe b
focusColumn Maybe c
focusCell Bool
startEditing = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
path' <- unsafeManagedPtrGetPtr path
maybeFocusColumn <- case focusColumn of
Maybe b
Nothing -> Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
forall a. Ptr a
FP.nullPtr
Just b
jFocusColumn -> do
jFocusColumn' <- b -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jFocusColumn
return jFocusColumn'
maybeFocusCell <- case focusCell of
Maybe c
Nothing -> Ptr CellRenderer -> IO (Ptr CellRenderer)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CellRenderer
forall a. Ptr a
FP.nullPtr
Just c
jFocusCell -> do
jFocusCell' <- c -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jFocusCell
return jFocusCell'
let startEditing' = (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
startEditing
gtk_tree_view_set_cursor_on_cell treeView' path' maybeFocusColumn maybeFocusCell startEditing'
touchManagedPtr treeView
touchManagedPtr path
whenJust focusColumn touchManagedPtr
whenJust focusCell touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetCursorOnCellMethodInfo
instance (signature ~ (Gtk.TreePath.TreePath -> Maybe (b) -> Maybe (c) -> Bool -> m ()), MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b, Gtk.CellRenderer.IsCellRenderer c) => O.OverloadedMethod TreeViewSetCursorOnCellMethodInfo a signature where
overloadedMethod = treeViewSetCursorOnCell
instance O.OverloadedMethodInfo TreeViewSetCursorOnCellMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewSetCursorOnCell",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetCursorOnCell"
})
#endif
foreign import ccall "gtk_tree_view_set_drag_dest_row" gtk_tree_view_set_drag_dest_row ::
Ptr TreeView ->
Ptr Gtk.TreePath.TreePath ->
CUInt ->
IO ()
{-# DEPRECATED treeViewSetDragDestRow ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewSetDragDestRow ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Maybe (Gtk.TreePath.TreePath)
-> Gtk.Enums.TreeViewDropPosition
-> m ()
treeViewSetDragDestRow :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Maybe TreePath -> TreeViewDropPosition -> m ()
treeViewSetDragDestRow a
treeView Maybe TreePath
path TreeViewDropPosition
pos = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
maybePath <- case path of
Maybe TreePath
Nothing -> Ptr TreePath -> IO (Ptr TreePath)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreePath
forall a. Ptr a
FP.nullPtr
Just TreePath
jPath -> do
jPath' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
jPath
return jPath'
let pos' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (TreeViewDropPosition -> Int) -> TreeViewDropPosition -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TreeViewDropPosition -> Int
forall a. Enum a => a -> Int
fromEnum) TreeViewDropPosition
pos
gtk_tree_view_set_drag_dest_row treeView' maybePath pos'
touchManagedPtr treeView
whenJust path touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetDragDestRowMethodInfo
instance (signature ~ (Maybe (Gtk.TreePath.TreePath) -> Gtk.Enums.TreeViewDropPosition -> m ()), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewSetDragDestRowMethodInfo a signature where
overloadedMethod = treeViewSetDragDestRow
instance O.OverloadedMethodInfo TreeViewSetDragDestRowMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewSetDragDestRow",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetDragDestRow"
})
#endif
foreign import ccall "gtk_tree_view_set_enable_search" gtk_tree_view_set_enable_search ::
Ptr TreeView ->
CInt ->
IO ()
{-# DEPRECATED treeViewSetEnableSearch ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewSetEnableSearch ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Bool
-> m ()
treeViewSetEnableSearch :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Bool -> m ()
treeViewSetEnableSearch a
treeView Bool
enableSearch = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
let enableSearch' = (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
enableSearch
gtk_tree_view_set_enable_search treeView' enableSearch'
touchManagedPtr treeView
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetEnableSearchMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewSetEnableSearchMethodInfo a signature where
overloadedMethod = treeViewSetEnableSearch
instance O.OverloadedMethodInfo TreeViewSetEnableSearchMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewSetEnableSearch",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetEnableSearch"
})
#endif
foreign import ccall "gtk_tree_view_set_enable_tree_lines" gtk_tree_view_set_enable_tree_lines ::
Ptr TreeView ->
CInt ->
IO ()
{-# DEPRECATED treeViewSetEnableTreeLines ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewSetEnableTreeLines ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Bool
-> m ()
treeViewSetEnableTreeLines :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Bool -> m ()
treeViewSetEnableTreeLines a
treeView Bool
enabled = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
let enabled' = (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
enabled
gtk_tree_view_set_enable_tree_lines treeView' enabled'
touchManagedPtr treeView
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetEnableTreeLinesMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewSetEnableTreeLinesMethodInfo a signature where
overloadedMethod = treeViewSetEnableTreeLines
instance O.OverloadedMethodInfo TreeViewSetEnableTreeLinesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewSetEnableTreeLines",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetEnableTreeLines"
})
#endif
foreign import ccall "gtk_tree_view_set_expander_column" gtk_tree_view_set_expander_column ::
Ptr TreeView ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
IO ()
{-# DEPRECATED treeViewSetExpanderColumn ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewSetExpanderColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) =>
a
-> Maybe (b)
-> m ()
treeViewSetExpanderColumn :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeView a, IsTreeViewColumn b) =>
a -> Maybe b -> m ()
treeViewSetExpanderColumn a
treeView Maybe b
column = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
maybeColumn <- case column of
Maybe b
Nothing -> Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
forall a. Ptr a
FP.nullPtr
Just b
jColumn -> do
jColumn' <- b -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jColumn
return jColumn'
gtk_tree_view_set_expander_column treeView' maybeColumn
touchManagedPtr treeView
whenJust column touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetExpanderColumnMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) => O.OverloadedMethod TreeViewSetExpanderColumnMethodInfo a signature where
overloadedMethod = treeViewSetExpanderColumn
instance O.OverloadedMethodInfo TreeViewSetExpanderColumnMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewSetExpanderColumn",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetExpanderColumn"
})
#endif
foreign import ccall "gtk_tree_view_set_fixed_height_mode" gtk_tree_view_set_fixed_height_mode ::
Ptr TreeView ->
CInt ->
IO ()
{-# DEPRECATED treeViewSetFixedHeightMode ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewSetFixedHeightMode ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Bool
-> m ()
treeViewSetFixedHeightMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Bool -> m ()
treeViewSetFixedHeightMode a
treeView Bool
enable = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
let enable' = (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
enable
gtk_tree_view_set_fixed_height_mode treeView' enable'
touchManagedPtr treeView
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetFixedHeightModeMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewSetFixedHeightModeMethodInfo a signature where
overloadedMethod = treeViewSetFixedHeightMode
instance O.OverloadedMethodInfo TreeViewSetFixedHeightModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewSetFixedHeightMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetFixedHeightMode"
})
#endif
foreign import ccall "gtk_tree_view_set_grid_lines" gtk_tree_view_set_grid_lines ::
Ptr TreeView ->
CUInt ->
IO ()
{-# DEPRECATED treeViewSetGridLines ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewSetGridLines ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Gtk.Enums.TreeViewGridLines
-> m ()
treeViewSetGridLines :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> TreeViewGridLines -> m ()
treeViewSetGridLines a
treeView TreeViewGridLines
gridLines = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
let gridLines' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (TreeViewGridLines -> Int) -> TreeViewGridLines -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TreeViewGridLines -> Int
forall a. Enum a => a -> Int
fromEnum) TreeViewGridLines
gridLines
gtk_tree_view_set_grid_lines treeView' gridLines'
touchManagedPtr treeView
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetGridLinesMethodInfo
instance (signature ~ (Gtk.Enums.TreeViewGridLines -> m ()), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewSetGridLinesMethodInfo a signature where
overloadedMethod = treeViewSetGridLines
instance O.OverloadedMethodInfo TreeViewSetGridLinesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewSetGridLines",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetGridLines"
})
#endif
foreign import ccall "gtk_tree_view_set_headers_clickable" ::
Ptr TreeView ->
CInt ->
IO ()
{-# DEPRECATED treeViewSetHeadersClickable ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewSetHeadersClickable ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Bool
-> m ()
a
treeView Bool
setting = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
let setting' = (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
setting
gtk_tree_view_set_headers_clickable treeView' setting'
touchManagedPtr treeView
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetHeadersClickableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewSetHeadersClickableMethodInfo a signature where
overloadedMethod = treeViewSetHeadersClickable
instance O.OverloadedMethodInfo TreeViewSetHeadersClickableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewSetHeadersClickable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetHeadersClickable"
})
#endif
foreign import ccall "gtk_tree_view_set_headers_visible" ::
Ptr TreeView ->
CInt ->
IO ()
{-# DEPRECATED treeViewSetHeadersVisible ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewSetHeadersVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Bool
-> m ()
a
treeView Bool
headersVisible = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
let headersVisible' = (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
headersVisible
gtk_tree_view_set_headers_visible treeView' headersVisible'
touchManagedPtr treeView
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetHeadersVisibleMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewSetHeadersVisibleMethodInfo a signature where
overloadedMethod = treeViewSetHeadersVisible
instance O.OverloadedMethodInfo TreeViewSetHeadersVisibleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewSetHeadersVisible",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetHeadersVisible"
})
#endif
foreign import ccall "gtk_tree_view_set_hover_expand" gtk_tree_view_set_hover_expand ::
Ptr TreeView ->
CInt ->
IO ()
{-# DEPRECATED treeViewSetHoverExpand ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewSetHoverExpand ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Bool
-> m ()
treeViewSetHoverExpand :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Bool -> m ()
treeViewSetHoverExpand a
treeView Bool
expand = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
let expand' = (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
expand
gtk_tree_view_set_hover_expand treeView' expand'
touchManagedPtr treeView
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetHoverExpandMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewSetHoverExpandMethodInfo a signature where
overloadedMethod = treeViewSetHoverExpand
instance O.OverloadedMethodInfo TreeViewSetHoverExpandMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewSetHoverExpand",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetHoverExpand"
})
#endif
foreign import ccall "gtk_tree_view_set_hover_selection" gtk_tree_view_set_hover_selection ::
Ptr TreeView ->
CInt ->
IO ()
{-# DEPRECATED treeViewSetHoverSelection ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewSetHoverSelection ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Bool
-> m ()
treeViewSetHoverSelection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Bool -> m ()
treeViewSetHoverSelection a
treeView Bool
hover = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
let hover' = (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
hover
gtk_tree_view_set_hover_selection treeView' hover'
touchManagedPtr treeView
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetHoverSelectionMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewSetHoverSelectionMethodInfo a signature where
overloadedMethod = treeViewSetHoverSelection
instance O.OverloadedMethodInfo TreeViewSetHoverSelectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewSetHoverSelection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetHoverSelection"
})
#endif
foreign import ccall "gtk_tree_view_set_level_indentation" gtk_tree_view_set_level_indentation ::
Ptr TreeView ->
Int32 ->
IO ()
{-# DEPRECATED treeViewSetLevelIndentation ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewSetLevelIndentation ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> m ()
treeViewSetLevelIndentation :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Int32 -> m ()
treeViewSetLevelIndentation a
treeView Int32
indentation = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
gtk_tree_view_set_level_indentation treeView' indentation
touchManagedPtr treeView
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetLevelIndentationMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewSetLevelIndentationMethodInfo a signature where
overloadedMethod = treeViewSetLevelIndentation
instance O.OverloadedMethodInfo TreeViewSetLevelIndentationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewSetLevelIndentation",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetLevelIndentation"
})
#endif
foreign import ccall "gtk_tree_view_set_model" gtk_tree_view_set_model ::
Ptr TreeView ->
Ptr Gtk.TreeModel.TreeModel ->
IO ()
{-# DEPRECATED treeViewSetModel ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewSetModel ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeModel.IsTreeModel b) =>
a
-> Maybe (b)
-> m ()
treeViewSetModel :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeView a, IsTreeModel b) =>
a -> Maybe b -> m ()
treeViewSetModel a
treeView 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
maybeModel <- case model of
Maybe b
Nothing -> Ptr TreeModel -> IO (Ptr TreeModel)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeModel
forall a. Ptr a
FP.nullPtr
Just b
jModel -> do
jModel' <- b -> IO (Ptr TreeModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jModel
return jModel'
gtk_tree_view_set_model treeView' maybeModel
touchManagedPtr treeView
whenJust model touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetModelMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsTreeView a, Gtk.TreeModel.IsTreeModel b) => O.OverloadedMethod TreeViewSetModelMethodInfo a signature where
overloadedMethod = treeViewSetModel
instance O.OverloadedMethodInfo TreeViewSetModelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewSetModel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetModel"
})
#endif
foreign import ccall "gtk_tree_view_set_reorderable" gtk_tree_view_set_reorderable ::
Ptr TreeView ->
CInt ->
IO ()
{-# DEPRECATED treeViewSetReorderable ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewSetReorderable ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Bool
-> m ()
treeViewSetReorderable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Bool -> m ()
treeViewSetReorderable a
treeView Bool
reorderable = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
let reorderable' = (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
reorderable
gtk_tree_view_set_reorderable treeView' reorderable'
touchManagedPtr treeView
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetReorderableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewSetReorderableMethodInfo a signature where
overloadedMethod = treeViewSetReorderable
instance O.OverloadedMethodInfo TreeViewSetReorderableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewSetReorderable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetReorderable"
})
#endif
foreign import ccall "gtk_tree_view_set_row_separator_func" gtk_tree_view_set_row_separator_func ::
Ptr TreeView ->
FunPtr Gtk.Callbacks.C_TreeViewRowSeparatorFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
{-# DEPRECATED treeViewSetRowSeparatorFunc ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewSetRowSeparatorFunc ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Maybe (Gtk.Callbacks.TreeViewRowSeparatorFunc)
-> m ()
treeViewSetRowSeparatorFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Maybe TreeViewRowSeparatorFunc -> m ()
treeViewSetRowSeparatorFunc a
treeView Maybe TreeViewRowSeparatorFunc
func = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
maybeFunc <- case func of
Maybe TreeViewRowSeparatorFunc
Nothing -> FunPtr C_TreeViewRowSeparatorFunc
-> IO (FunPtr C_TreeViewRowSeparatorFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_TreeViewRowSeparatorFunc
forall a. FunPtr a
FP.nullFunPtr
Just TreeViewRowSeparatorFunc
jFunc -> do
jFunc' <- C_TreeViewRowSeparatorFunc
-> IO (FunPtr C_TreeViewRowSeparatorFunc)
Gtk.Callbacks.mk_TreeViewRowSeparatorFunc (Maybe (Ptr (FunPtr C_TreeViewRowSeparatorFunc))
-> TreeViewRowSeparatorFunc_WithClosures
-> C_TreeViewRowSeparatorFunc
Gtk.Callbacks.wrap_TreeViewRowSeparatorFunc Maybe (Ptr (FunPtr C_TreeViewRowSeparatorFunc))
forall a. Maybe a
Nothing (TreeViewRowSeparatorFunc -> TreeViewRowSeparatorFunc_WithClosures
Gtk.Callbacks.drop_closures_TreeViewRowSeparatorFunc TreeViewRowSeparatorFunc
jFunc))
return jFunc'
let data_ = FunPtr C_TreeViewRowSeparatorFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_TreeViewRowSeparatorFunc
maybeFunc
let destroy = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
SP.safeFreeFunPtrPtr
gtk_tree_view_set_row_separator_func treeView' maybeFunc data_ destroy
touchManagedPtr treeView
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetRowSeparatorFuncMethodInfo
instance (signature ~ (Maybe (Gtk.Callbacks.TreeViewRowSeparatorFunc) -> m ()), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewSetRowSeparatorFuncMethodInfo a signature where
overloadedMethod = treeViewSetRowSeparatorFunc
instance O.OverloadedMethodInfo TreeViewSetRowSeparatorFuncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewSetRowSeparatorFunc",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetRowSeparatorFunc"
})
#endif
foreign import ccall "gtk_tree_view_set_rubber_banding" gtk_tree_view_set_rubber_banding ::
Ptr TreeView ->
CInt ->
IO ()
{-# DEPRECATED treeViewSetRubberBanding ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewSetRubberBanding ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Bool
-> m ()
treeViewSetRubberBanding :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Bool -> m ()
treeViewSetRubberBanding a
treeView Bool
enable = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
let enable' = (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
enable
gtk_tree_view_set_rubber_banding treeView' enable'
touchManagedPtr treeView
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetRubberBandingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewSetRubberBandingMethodInfo a signature where
overloadedMethod = treeViewSetRubberBanding
instance O.OverloadedMethodInfo TreeViewSetRubberBandingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewSetRubberBanding",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetRubberBanding"
})
#endif
foreign import ccall "gtk_tree_view_set_search_column" gtk_tree_view_set_search_column ::
Ptr TreeView ->
Int32 ->
IO ()
{-# DEPRECATED treeViewSetSearchColumn ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewSetSearchColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> m ()
treeViewSetSearchColumn :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Int32 -> m ()
treeViewSetSearchColumn a
treeView Int32
column = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
gtk_tree_view_set_search_column treeView' column
touchManagedPtr treeView
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetSearchColumnMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewSetSearchColumnMethodInfo a signature where
overloadedMethod = treeViewSetSearchColumn
instance O.OverloadedMethodInfo TreeViewSetSearchColumnMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewSetSearchColumn",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetSearchColumn"
})
#endif
foreign import ccall "gtk_tree_view_set_search_entry" gtk_tree_view_set_search_entry ::
Ptr TreeView ->
Ptr Gtk.Editable.Editable ->
IO ()
{-# DEPRECATED treeViewSetSearchEntry ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewSetSearchEntry ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.Editable.IsEditable b) =>
a
-> Maybe (b)
-> m ()
treeViewSetSearchEntry :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeView a, IsEditable b) =>
a -> Maybe b -> m ()
treeViewSetSearchEntry a
treeView Maybe b
entry = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
maybeEntry <- case entry of
Maybe b
Nothing -> Ptr Editable -> IO (Ptr Editable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Editable
forall a. Ptr a
FP.nullPtr
Just b
jEntry -> do
jEntry' <- b -> IO (Ptr Editable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jEntry
return jEntry'
gtk_tree_view_set_search_entry treeView' maybeEntry
touchManagedPtr treeView
whenJust entry touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetSearchEntryMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsTreeView a, Gtk.Editable.IsEditable b) => O.OverloadedMethod TreeViewSetSearchEntryMethodInfo a signature where
overloadedMethod = treeViewSetSearchEntry
instance O.OverloadedMethodInfo TreeViewSetSearchEntryMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewSetSearchEntry",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetSearchEntry"
})
#endif
foreign import ccall "gtk_tree_view_set_search_equal_func" gtk_tree_view_set_search_equal_func ::
Ptr TreeView ->
FunPtr Gtk.Callbacks.C_TreeViewSearchEqualFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
{-# DEPRECATED treeViewSetSearchEqualFunc ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewSetSearchEqualFunc ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Gtk.Callbacks.TreeViewSearchEqualFunc
-> m ()
treeViewSetSearchEqualFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> TreeViewSearchEqualFunc -> m ()
treeViewSetSearchEqualFunc a
treeView TreeViewSearchEqualFunc
searchEqualFunc = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
searchEqualFunc' <- Gtk.Callbacks.mk_TreeViewSearchEqualFunc (Gtk.Callbacks.wrap_TreeViewSearchEqualFunc Nothing (Gtk.Callbacks.drop_closures_TreeViewSearchEqualFunc searchEqualFunc))
let searchUserData = FunPtr C_TreeViewSearchEqualFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_TreeViewSearchEqualFunc
searchEqualFunc'
let searchDestroy = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
SP.safeFreeFunPtrPtr
gtk_tree_view_set_search_equal_func treeView' searchEqualFunc' searchUserData searchDestroy
touchManagedPtr treeView
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetSearchEqualFuncMethodInfo
instance (signature ~ (Gtk.Callbacks.TreeViewSearchEqualFunc -> m ()), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewSetSearchEqualFuncMethodInfo a signature where
overloadedMethod = treeViewSetSearchEqualFunc
instance O.OverloadedMethodInfo TreeViewSetSearchEqualFuncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewSetSearchEqualFunc",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetSearchEqualFunc"
})
#endif
foreign import ccall "gtk_tree_view_set_show_expanders" gtk_tree_view_set_show_expanders ::
Ptr TreeView ->
CInt ->
IO ()
{-# DEPRECATED treeViewSetShowExpanders ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewSetShowExpanders ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Bool
-> m ()
treeViewSetShowExpanders :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Bool -> m ()
treeViewSetShowExpanders a
treeView Bool
enabled = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
let enabled' = (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
enabled
gtk_tree_view_set_show_expanders treeView' enabled'
touchManagedPtr treeView
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetShowExpandersMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewSetShowExpandersMethodInfo a signature where
overloadedMethod = treeViewSetShowExpanders
instance O.OverloadedMethodInfo TreeViewSetShowExpandersMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewSetShowExpanders",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetShowExpanders"
})
#endif
foreign import ccall "gtk_tree_view_set_tooltip_cell" gtk_tree_view_set_tooltip_cell ::
Ptr TreeView ->
Ptr Gtk.Tooltip.Tooltip ->
Ptr Gtk.TreePath.TreePath ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
Ptr Gtk.CellRenderer.CellRenderer ->
IO ()
{-# DEPRECATED treeViewSetTooltipCell ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewSetTooltipCell ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.Tooltip.IsTooltip b, Gtk.TreeViewColumn.IsTreeViewColumn c, Gtk.CellRenderer.IsCellRenderer d) =>
a
-> b
-> Maybe (Gtk.TreePath.TreePath)
-> Maybe (c)
-> Maybe (d)
-> m ()
treeViewSetTooltipCell :: forall (m :: * -> *) a b c d.
(HasCallStack, MonadIO m, IsTreeView a, IsTooltip b,
IsTreeViewColumn c, IsCellRenderer d) =>
a -> b -> Maybe TreePath -> Maybe c -> Maybe d -> m ()
treeViewSetTooltipCell a
treeView b
tooltip Maybe TreePath
path Maybe c
column Maybe d
cell = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
tooltip' <- unsafeManagedPtrCastPtr tooltip
maybePath <- case path of
Maybe TreePath
Nothing -> Ptr TreePath -> IO (Ptr TreePath)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreePath
forall a. Ptr a
FP.nullPtr
Just TreePath
jPath -> do
jPath' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
jPath
return jPath'
maybeColumn <- case column of
Maybe c
Nothing -> Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
forall a. Ptr a
FP.nullPtr
Just c
jColumn -> do
jColumn' <- c -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jColumn
return jColumn'
maybeCell <- case cell of
Maybe d
Nothing -> Ptr CellRenderer -> IO (Ptr CellRenderer)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CellRenderer
forall a. Ptr a
FP.nullPtr
Just d
jCell -> do
jCell' <- d -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr d
jCell
return jCell'
gtk_tree_view_set_tooltip_cell treeView' tooltip' maybePath maybeColumn maybeCell
touchManagedPtr treeView
touchManagedPtr tooltip
whenJust path touchManagedPtr
whenJust column touchManagedPtr
whenJust cell touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetTooltipCellMethodInfo
instance (signature ~ (b -> Maybe (Gtk.TreePath.TreePath) -> Maybe (c) -> Maybe (d) -> m ()), MonadIO m, IsTreeView a, Gtk.Tooltip.IsTooltip b, Gtk.TreeViewColumn.IsTreeViewColumn c, Gtk.CellRenderer.IsCellRenderer d) => O.OverloadedMethod TreeViewSetTooltipCellMethodInfo a signature where
overloadedMethod = treeViewSetTooltipCell
instance O.OverloadedMethodInfo TreeViewSetTooltipCellMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewSetTooltipCell",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetTooltipCell"
})
#endif
foreign import ccall "gtk_tree_view_set_tooltip_column" gtk_tree_view_set_tooltip_column ::
Ptr TreeView ->
Int32 ->
IO ()
{-# DEPRECATED treeViewSetTooltipColumn ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewSetTooltipColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> m ()
treeViewSetTooltipColumn :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Int32 -> m ()
treeViewSetTooltipColumn a
treeView Int32
column = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
gtk_tree_view_set_tooltip_column treeView' column
touchManagedPtr treeView
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetTooltipColumnMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewSetTooltipColumnMethodInfo a signature where
overloadedMethod = treeViewSetTooltipColumn
instance O.OverloadedMethodInfo TreeViewSetTooltipColumnMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewSetTooltipColumn",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetTooltipColumn"
})
#endif
foreign import ccall "gtk_tree_view_set_tooltip_row" gtk_tree_view_set_tooltip_row ::
Ptr TreeView ->
Ptr Gtk.Tooltip.Tooltip ->
Ptr Gtk.TreePath.TreePath ->
IO ()
{-# DEPRECATED treeViewSetTooltipRow ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewSetTooltipRow ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.Tooltip.IsTooltip b) =>
a
-> b
-> Gtk.TreePath.TreePath
-> m ()
treeViewSetTooltipRow :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeView a, IsTooltip b) =>
a -> b -> TreePath -> m ()
treeViewSetTooltipRow a
treeView b
tooltip TreePath
path = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
tooltip' <- unsafeManagedPtrCastPtr tooltip
path' <- unsafeManagedPtrGetPtr path
gtk_tree_view_set_tooltip_row treeView' tooltip' path'
touchManagedPtr treeView
touchManagedPtr tooltip
touchManagedPtr path
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetTooltipRowMethodInfo
instance (signature ~ (b -> Gtk.TreePath.TreePath -> m ()), MonadIO m, IsTreeView a, Gtk.Tooltip.IsTooltip b) => O.OverloadedMethod TreeViewSetTooltipRowMethodInfo a signature where
overloadedMethod = treeViewSetTooltipRow
instance O.OverloadedMethodInfo TreeViewSetTooltipRowMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewSetTooltipRow",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetTooltipRow"
})
#endif
foreign import ccall "gtk_tree_view_unset_rows_drag_dest" gtk_tree_view_unset_rows_drag_dest ::
Ptr TreeView ->
IO ()
{-# DEPRECATED treeViewUnsetRowsDragDest ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewUnsetRowsDragDest ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m ()
treeViewUnsetRowsDragDest :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m ()
treeViewUnsetRowsDragDest a
treeView = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
gtk_tree_view_unset_rows_drag_dest treeView'
touchManagedPtr treeView
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewUnsetRowsDragDestMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewUnsetRowsDragDestMethodInfo a signature where
overloadedMethod = treeViewUnsetRowsDragDest
instance O.OverloadedMethodInfo TreeViewUnsetRowsDragDestMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewUnsetRowsDragDest",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewUnsetRowsDragDest"
})
#endif
foreign import ccall "gtk_tree_view_unset_rows_drag_source" gtk_tree_view_unset_rows_drag_source ::
Ptr TreeView ->
IO ()
{-# DEPRECATED treeViewUnsetRowsDragSource ["(Since version 4.10)","Use t'GI.Gtk.Objects.ListView.ListView' or t'GI.Gtk.Objects.ColumnView.ColumnView' instead"] #-}
treeViewUnsetRowsDragSource ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m ()
treeViewUnsetRowsDragSource :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m ()
treeViewUnsetRowsDragSource a
treeView = 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
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
gtk_tree_view_unset_rows_drag_source treeView'
touchManagedPtr treeView
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewUnsetRowsDragSourceMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTreeView a) => O.OverloadedMethod TreeViewUnsetRowsDragSourceMethodInfo a signature where
overloadedMethod = treeViewUnsetRowsDragSource
instance O.OverloadedMethodInfo TreeViewUnsetRowsDragSourceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.TreeView.treeViewUnsetRowsDragSource",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-TreeView.html#v:treeViewUnsetRowsDragSource"
})
#endif