{-# LANGUAGE 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 ,
noTreeView ,
#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)
TreeViewGetBinWindowMethodInfo ,
#endif
treeViewGetBinWindow ,
#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)
TreeViewGetHadjustmentMethodInfo ,
#endif
treeViewGetHadjustment ,
#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)
TreeViewGetRulesHintMethodInfo ,
#endif
treeViewGetRulesHint ,
#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)
TreeViewGetVadjustmentMethodInfo ,
#endif
treeViewGetVadjustment ,
#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)
TreeViewSetDestroyCountFuncMethodInfo ,
#endif
treeViewSetDestroyCountFunc ,
#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)
TreeViewSetHadjustmentMethodInfo ,
#endif
treeViewSetHadjustment ,
#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)
TreeViewSetRulesHintMethodInfo ,
#endif
treeViewSetRulesHint ,
#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)
TreeViewSetSearchPositionFuncMethodInfo ,
#endif
treeViewSetSearchPositionFunc ,
#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)
TreeViewSetVadjustmentMethodInfo ,
#endif
treeViewSetVadjustment ,
#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)
TreeViewRulesHintPropertyInfo ,
#endif
constructTreeViewRulesHint ,
getTreeViewRulesHint ,
setTreeViewRulesHint ,
#if defined(ENABLE_OVERLOADING)
treeViewRulesHint ,
#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
C_TreeViewColumnsChangedCallback ,
TreeViewColumnsChangedCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnsChangedSignalInfo ,
#endif
afterTreeViewColumnsChanged ,
genClosure_TreeViewColumnsChanged ,
mk_TreeViewColumnsChangedCallback ,
noTreeViewColumnsChangedCallback ,
onTreeViewColumnsChanged ,
wrap_TreeViewColumnsChangedCallback ,
C_TreeViewCursorChangedCallback ,
TreeViewCursorChangedCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewCursorChangedSignalInfo ,
#endif
afterTreeViewCursorChanged ,
genClosure_TreeViewCursorChanged ,
mk_TreeViewCursorChangedCallback ,
noTreeViewCursorChangedCallback ,
onTreeViewCursorChanged ,
wrap_TreeViewCursorChangedCallback ,
C_TreeViewExpandCollapseCursorRowCallback,
TreeViewExpandCollapseCursorRowCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewExpandCollapseCursorRowSignalInfo,
#endif
afterTreeViewExpandCollapseCursorRow ,
genClosure_TreeViewExpandCollapseCursorRow,
mk_TreeViewExpandCollapseCursorRowCallback,
noTreeViewExpandCollapseCursorRowCallback,
onTreeViewExpandCollapseCursorRow ,
wrap_TreeViewExpandCollapseCursorRowCallback,
C_TreeViewMoveCursorCallback ,
TreeViewMoveCursorCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewMoveCursorSignalInfo ,
#endif
afterTreeViewMoveCursor ,
genClosure_TreeViewMoveCursor ,
mk_TreeViewMoveCursorCallback ,
noTreeViewMoveCursorCallback ,
onTreeViewMoveCursor ,
wrap_TreeViewMoveCursorCallback ,
C_TreeViewRowActivatedCallback ,
TreeViewRowActivatedCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewRowActivatedSignalInfo ,
#endif
afterTreeViewRowActivated ,
genClosure_TreeViewRowActivated ,
mk_TreeViewRowActivatedCallback ,
noTreeViewRowActivatedCallback ,
onTreeViewRowActivated ,
wrap_TreeViewRowActivatedCallback ,
C_TreeViewRowCollapsedCallback ,
TreeViewRowCollapsedCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewRowCollapsedSignalInfo ,
#endif
afterTreeViewRowCollapsed ,
genClosure_TreeViewRowCollapsed ,
mk_TreeViewRowCollapsedCallback ,
noTreeViewRowCollapsedCallback ,
onTreeViewRowCollapsed ,
wrap_TreeViewRowCollapsedCallback ,
C_TreeViewRowExpandedCallback ,
TreeViewRowExpandedCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewRowExpandedSignalInfo ,
#endif
afterTreeViewRowExpanded ,
genClosure_TreeViewRowExpanded ,
mk_TreeViewRowExpandedCallback ,
noTreeViewRowExpandedCallback ,
onTreeViewRowExpanded ,
wrap_TreeViewRowExpandedCallback ,
C_TreeViewSelectAllCallback ,
TreeViewSelectAllCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewSelectAllSignalInfo ,
#endif
afterTreeViewSelectAll ,
genClosure_TreeViewSelectAll ,
mk_TreeViewSelectAllCallback ,
noTreeViewSelectAllCallback ,
onTreeViewSelectAll ,
wrap_TreeViewSelectAllCallback ,
C_TreeViewSelectCursorParentCallback ,
TreeViewSelectCursorParentCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewSelectCursorParentSignalInfo ,
#endif
afterTreeViewSelectCursorParent ,
genClosure_TreeViewSelectCursorParent ,
mk_TreeViewSelectCursorParentCallback ,
noTreeViewSelectCursorParentCallback ,
onTreeViewSelectCursorParent ,
wrap_TreeViewSelectCursorParentCallback ,
C_TreeViewSelectCursorRowCallback ,
TreeViewSelectCursorRowCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewSelectCursorRowSignalInfo ,
#endif
afterTreeViewSelectCursorRow ,
genClosure_TreeViewSelectCursorRow ,
mk_TreeViewSelectCursorRowCallback ,
noTreeViewSelectCursorRowCallback ,
onTreeViewSelectCursorRow ,
wrap_TreeViewSelectCursorRowCallback ,
C_TreeViewStartInteractiveSearchCallback,
TreeViewStartInteractiveSearchCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewStartInteractiveSearchSignalInfo,
#endif
afterTreeViewStartInteractiveSearch ,
genClosure_TreeViewStartInteractiveSearch,
mk_TreeViewStartInteractiveSearchCallback,
noTreeViewStartInteractiveSearchCallback,
onTreeViewStartInteractiveSearch ,
wrap_TreeViewStartInteractiveSearchCallback,
C_TreeViewTestCollapseRowCallback ,
TreeViewTestCollapseRowCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewTestCollapseRowSignalInfo ,
#endif
afterTreeViewTestCollapseRow ,
genClosure_TreeViewTestCollapseRow ,
mk_TreeViewTestCollapseRowCallback ,
noTreeViewTestCollapseRowCallback ,
onTreeViewTestCollapseRow ,
wrap_TreeViewTestCollapseRowCallback ,
C_TreeViewTestExpandRowCallback ,
TreeViewTestExpandRowCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewTestExpandRowSignalInfo ,
#endif
afterTreeViewTestExpandRow ,
genClosure_TreeViewTestExpandRow ,
mk_TreeViewTestExpandRowCallback ,
noTreeViewTestExpandRowCallback ,
onTreeViewTestExpandRow ,
wrap_TreeViewTestExpandRowCallback ,
C_TreeViewToggleCursorRowCallback ,
TreeViewToggleCursorRowCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewToggleCursorRowSignalInfo ,
#endif
afterTreeViewToggleCursorRow ,
genClosure_TreeViewToggleCursorRow ,
mk_TreeViewToggleCursorRowCallback ,
noTreeViewToggleCursorRowCallback ,
onTreeViewToggleCursorRow ,
wrap_TreeViewToggleCursorRowCallback ,
C_TreeViewUnselectAllCallback ,
TreeViewUnselectAllCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewUnselectAllSignalInfo ,
#endif
afterTreeViewUnselectAll ,
genClosure_TreeViewUnselectAll ,
mk_TreeViewUnselectAllCallback ,
noTreeViewUnselectAllCallback ,
onTreeViewUnselectAll ,
wrap_TreeViewUnselectAllCallback ,
) 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.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.Cairo.Structs.Surface as Cairo.Surface
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.Objects.Window as Gdk.Window
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.Buildable as Gtk.Buildable
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.Adjustment as Gtk.Adjustment
import {-# SOURCE #-} qualified GI.Gtk.Objects.CellRenderer as Gtk.CellRenderer
import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container
import {-# SOURCE #-} qualified GI.Gtk.Objects.Entry as Gtk.Entry
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.TargetEntry as Gtk.TargetEntry
import {-# SOURCE #-} qualified GI.Gtk.Structs.TreeIter as Gtk.TreeIter
import {-# SOURCE #-} qualified GI.Gtk.Structs.TreePath as Gtk.TreePath
newtype TreeView = TreeView (ManagedPtr TreeView)
deriving (TreeView -> TreeView -> Bool
(TreeView -> TreeView -> Bool)
-> (TreeView -> TreeView -> Bool) -> Eq TreeView
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TreeView -> TreeView -> Bool
$c/= :: TreeView -> TreeView -> Bool
== :: TreeView -> TreeView -> Bool
$c== :: TreeView -> TreeView -> Bool
Eq)
foreign import ccall "gtk_tree_view_get_type"
c_gtk_tree_view_get_type :: IO GType
instance GObject TreeView where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_tree_view_get_type
instance B.GValue.IsGValue TreeView where
toGValue :: TreeView -> IO GValue
toGValue o :: TreeView
o = do
GType
gtype <- IO GType
c_gtk_tree_view_get_type
TreeView -> (Ptr TreeView -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr TreeView
o (GType
-> (GValue -> Ptr TreeView -> IO ()) -> Ptr TreeView -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr TreeView -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO TreeView
fromGValue gv :: GValue
gv = do
Ptr TreeView
ptr <- GValue -> IO (Ptr TreeView)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr TreeView)
(ManagedPtr TreeView -> TreeView) -> Ptr TreeView -> IO TreeView
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr TreeView -> TreeView
TreeView Ptr TreeView
ptr
class (GObject o, O.IsDescendantOf TreeView o) => IsTreeView o
instance (GObject o, O.IsDescendantOf TreeView o) => IsTreeView o
instance O.HasParentTypes TreeView
type instance O.ParentTypes TreeView = '[Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable, Gtk.Scrollable.Scrollable]
toTreeView :: (MonadIO m, IsTreeView o) => o -> m TreeView
toTreeView :: o -> m TreeView
toTreeView = IO TreeView -> m TreeView
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr TreeView -> TreeView
TreeView
noTreeView :: Maybe TreeView
noTreeView :: Maybe TreeView
noTreeView = Maybe TreeView
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveTreeViewMethod (t :: Symbol) (o :: *) :: * where
ResolveTreeViewMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveTreeViewMethod "add" o = Gtk.Container.ContainerAddMethodInfo
ResolveTreeViewMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveTreeViewMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveTreeViewMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo
ResolveTreeViewMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo
ResolveTreeViewMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveTreeViewMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveTreeViewMethod "appendColumn" o = TreeViewAppendColumnMethodInfo
ResolveTreeViewMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveTreeViewMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveTreeViewMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveTreeViewMethod "checkResize" o = Gtk.Container.ContainerCheckResizeMethodInfo
ResolveTreeViewMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveTreeViewMethod "childGetProperty" o = Gtk.Container.ContainerChildGetPropertyMethodInfo
ResolveTreeViewMethod "childNotify" o = Gtk.Container.ContainerChildNotifyMethodInfo
ResolveTreeViewMethod "childNotifyByPspec" o = Gtk.Container.ContainerChildNotifyByPspecMethodInfo
ResolveTreeViewMethod "childSetProperty" o = Gtk.Container.ContainerChildSetPropertyMethodInfo
ResolveTreeViewMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo
ResolveTreeViewMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo
ResolveTreeViewMethod "collapseAll" o = TreeViewCollapseAllMethodInfo
ResolveTreeViewMethod "collapseRow" o = TreeViewCollapseRowMethodInfo
ResolveTreeViewMethod "columnsAutosize" o = TreeViewColumnsAutosizeMethodInfo
ResolveTreeViewMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveTreeViewMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
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 "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveTreeViewMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveTreeViewMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveTreeViewMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveTreeViewMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveTreeViewMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveTreeViewMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveTreeViewMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo
ResolveTreeViewMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveTreeViewMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveTreeViewMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveTreeViewMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveTreeViewMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveTreeViewMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveTreeViewMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveTreeViewMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveTreeViewMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo
ResolveTreeViewMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveTreeViewMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveTreeViewMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveTreeViewMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveTreeViewMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveTreeViewMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveTreeViewMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveTreeViewMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveTreeViewMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveTreeViewMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveTreeViewMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveTreeViewMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveTreeViewMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo
ResolveTreeViewMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo
ResolveTreeViewMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveTreeViewMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveTreeViewMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveTreeViewMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo
ResolveTreeViewMethod "enableModelDragDest" o = TreeViewEnableModelDragDestMethodInfo
ResolveTreeViewMethod "enableModelDragSource" o = TreeViewEnableModelDragSourceMethodInfo
ResolveTreeViewMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo
ResolveTreeViewMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveTreeViewMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveTreeViewMethod "expandAll" o = TreeViewExpandAllMethodInfo
ResolveTreeViewMethod "expandRow" o = TreeViewExpandRowMethodInfo
ResolveTreeViewMethod "expandToPath" o = TreeViewExpandToPathMethodInfo
ResolveTreeViewMethod "forall" o = Gtk.Container.ContainerForallMethodInfo
ResolveTreeViewMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveTreeViewMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo
ResolveTreeViewMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo
ResolveTreeViewMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveTreeViewMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveTreeViewMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveTreeViewMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo
ResolveTreeViewMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveTreeViewMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveTreeViewMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveTreeViewMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveTreeViewMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveTreeViewMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo
ResolveTreeViewMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo
ResolveTreeViewMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveTreeViewMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveTreeViewMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo
ResolveTreeViewMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveTreeViewMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveTreeViewMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveTreeViewMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveTreeViewMethod "insertColumn" o = TreeViewInsertColumnMethodInfo
ResolveTreeViewMethod "insertColumnWithDataFunc" o = TreeViewInsertColumnWithDataFuncMethodInfo
ResolveTreeViewMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo
ResolveTreeViewMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveTreeViewMethod "isBlankAtPos" o = TreeViewIsBlankAtPosMethodInfo
ResolveTreeViewMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo
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 "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveTreeViewMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveTreeViewMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveTreeViewMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveTreeViewMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveTreeViewMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveTreeViewMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveTreeViewMethod "mapExpandedRows" o = TreeViewMapExpandedRowsMethodInfo
ResolveTreeViewMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveTreeViewMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo
ResolveTreeViewMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo
ResolveTreeViewMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo
ResolveTreeViewMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo
ResolveTreeViewMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo
ResolveTreeViewMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo
ResolveTreeViewMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo
ResolveTreeViewMethod "moveColumnAfter" o = TreeViewMoveColumnAfterMethodInfo
ResolveTreeViewMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveTreeViewMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveTreeViewMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo
ResolveTreeViewMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo
ResolveTreeViewMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo
ResolveTreeViewMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo
ResolveTreeViewMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo
ResolveTreeViewMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveTreeViewMethod "path" o = Gtk.Widget.WidgetPathMethodInfo
ResolveTreeViewMethod "propagateDraw" o = Gtk.Container.ContainerPropagateDrawMethodInfo
ResolveTreeViewMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveTreeViewMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveTreeViewMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveTreeViewMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo
ResolveTreeViewMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo
ResolveTreeViewMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveTreeViewMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveTreeViewMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveTreeViewMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveTreeViewMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveTreeViewMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo
ResolveTreeViewMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo
ResolveTreeViewMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo
ResolveTreeViewMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveTreeViewMethod "removeColumn" o = TreeViewRemoveColumnMethodInfo
ResolveTreeViewMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveTreeViewMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveTreeViewMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo
ResolveTreeViewMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo
ResolveTreeViewMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo
ResolveTreeViewMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo
ResolveTreeViewMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveTreeViewMethod "resizeChildren" o = Gtk.Container.ContainerResizeChildrenMethodInfo
ResolveTreeViewMethod "rowActivated" o = TreeViewRowActivatedMethodInfo
ResolveTreeViewMethod "rowExpanded" o = TreeViewRowExpandedMethodInfo
ResolveTreeViewMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveTreeViewMethod "scrollToCell" o = TreeViewScrollToCellMethodInfo
ResolveTreeViewMethod "scrollToPoint" o = TreeViewScrollToPointMethodInfo
ResolveTreeViewMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo
ResolveTreeViewMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo
ResolveTreeViewMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo
ResolveTreeViewMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveTreeViewMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo
ResolveTreeViewMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo
ResolveTreeViewMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveTreeViewMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo
ResolveTreeViewMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo
ResolveTreeViewMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveTreeViewMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveTreeViewMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo
ResolveTreeViewMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo
ResolveTreeViewMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo
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 "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo
ResolveTreeViewMethod "unsetFocusChain" o = Gtk.Container.ContainerUnsetFocusChainMethodInfo
ResolveTreeViewMethod "unsetRowsDragDest" o = TreeViewUnsetRowsDragDestMethodInfo
ResolveTreeViewMethod "unsetRowsDragSource" o = TreeViewUnsetRowsDragSourceMethodInfo
ResolveTreeViewMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveTreeViewMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveTreeViewMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveTreeViewMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveTreeViewMethod "getActivateOnSingleClick" o = TreeViewGetActivateOnSingleClickMethodInfo
ResolveTreeViewMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveTreeViewMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveTreeViewMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo
ResolveTreeViewMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveTreeViewMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveTreeViewMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveTreeViewMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo
ResolveTreeViewMethod "getBackgroundArea" o = TreeViewGetBackgroundAreaMethodInfo
ResolveTreeViewMethod "getBinWindow" o = TreeViewGetBinWindowMethodInfo
ResolveTreeViewMethod "getBorder" o = Gtk.Scrollable.ScrollableGetBorderMethodInfo
ResolveTreeViewMethod "getBorderWidth" o = Gtk.Container.ContainerGetBorderWidthMethodInfo
ResolveTreeViewMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo
ResolveTreeViewMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveTreeViewMethod "getCellArea" o = TreeViewGetCellAreaMethodInfo
ResolveTreeViewMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo
ResolveTreeViewMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveTreeViewMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo
ResolveTreeViewMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo
ResolveTreeViewMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveTreeViewMethod "getColumn" o = TreeViewGetColumnMethodInfo
ResolveTreeViewMethod "getColumns" o = TreeViewGetColumnsMethodInfo
ResolveTreeViewMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo
ResolveTreeViewMethod "getCursor" o = TreeViewGetCursorMethodInfo
ResolveTreeViewMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveTreeViewMethod "getDestRowAtPos" o = TreeViewGetDestRowAtPosMethodInfo
ResolveTreeViewMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo
ResolveTreeViewMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo
ResolveTreeViewMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveTreeViewMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveTreeViewMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo
ResolveTreeViewMethod "getDragDestRow" o = TreeViewGetDragDestRowMethodInfo
ResolveTreeViewMethod "getEnableSearch" o = TreeViewGetEnableSearchMethodInfo
ResolveTreeViewMethod "getEnableTreeLines" o = TreeViewGetEnableTreeLinesMethodInfo
ResolveTreeViewMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo
ResolveTreeViewMethod "getExpanderColumn" o = TreeViewGetExpanderColumnMethodInfo
ResolveTreeViewMethod "getFixedHeightMode" o = TreeViewGetFixedHeightModeMethodInfo
ResolveTreeViewMethod "getFocusChain" o = Gtk.Container.ContainerGetFocusChainMethodInfo
ResolveTreeViewMethod "getFocusChild" o = Gtk.Container.ContainerGetFocusChildMethodInfo
ResolveTreeViewMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo
ResolveTreeViewMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveTreeViewMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo
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 = TreeViewGetHadjustmentMethodInfo
ResolveTreeViewMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveTreeViewMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveTreeViewMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo
ResolveTreeViewMethod "getHeadersClickable" o = TreeViewGetHeadersClickableMethodInfo
ResolveTreeViewMethod "getHeadersVisible" o = TreeViewGetHeadersVisibleMethodInfo
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 "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveTreeViewMethod "getLevelIndentation" o = TreeViewGetLevelIndentationMethodInfo
ResolveTreeViewMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveTreeViewMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveTreeViewMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveTreeViewMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo
ResolveTreeViewMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo
ResolveTreeViewMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveTreeViewMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveTreeViewMethod "getModel" o = TreeViewGetModelMethodInfo
ResolveTreeViewMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveTreeViewMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo
ResolveTreeViewMethod "getNColumns" o = TreeViewGetNColumnsMethodInfo
ResolveTreeViewMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveTreeViewMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo
ResolveTreeViewMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveTreeViewMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveTreeViewMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveTreeViewMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo
ResolveTreeViewMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveTreeViewMethod "getPathAtPos" o = TreeViewGetPathAtPosMethodInfo
ResolveTreeViewMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo
ResolveTreeViewMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo
ResolveTreeViewMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo
ResolveTreeViewMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolveTreeViewMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo
ResolveTreeViewMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveTreeViewMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo
ResolveTreeViewMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo
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 "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo
ResolveTreeViewMethod "getResizeMode" o = Gtk.Container.ContainerGetResizeModeMethodInfo
ResolveTreeViewMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo
ResolveTreeViewMethod "getRubberBanding" o = TreeViewGetRubberBandingMethodInfo
ResolveTreeViewMethod "getRulesHint" o = TreeViewGetRulesHintMethodInfo
ResolveTreeViewMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveTreeViewMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo
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 "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveTreeViewMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo
ResolveTreeViewMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveTreeViewMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo
ResolveTreeViewMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveTreeViewMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
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 "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveTreeViewMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveTreeViewMethod "getVadjustment" o = TreeViewGetVadjustmentMethodInfo
ResolveTreeViewMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveTreeViewMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo
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 "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo
ResolveTreeViewMethod "getVscrollPolicy" o = Gtk.Scrollable.ScrollableGetVscrollPolicyMethodInfo
ResolveTreeViewMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo
ResolveTreeViewMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveTreeViewMethod "setActivateOnSingleClick" o = TreeViewSetActivateOnSingleClickMethodInfo
ResolveTreeViewMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo
ResolveTreeViewMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo
ResolveTreeViewMethod "setBorderWidth" o = Gtk.Container.ContainerSetBorderWidthMethodInfo
ResolveTreeViewMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveTreeViewMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo
ResolveTreeViewMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveTreeViewMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveTreeViewMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo
ResolveTreeViewMethod "setColumnDragFunction" o = TreeViewSetColumnDragFunctionMethodInfo
ResolveTreeViewMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo
ResolveTreeViewMethod "setCursor" o = TreeViewSetCursorMethodInfo
ResolveTreeViewMethod "setCursorOnCell" o = TreeViewSetCursorOnCellMethodInfo
ResolveTreeViewMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveTreeViewMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveTreeViewMethod "setDestroyCountFunc" o = TreeViewSetDestroyCountFuncMethodInfo
ResolveTreeViewMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo
ResolveTreeViewMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo
ResolveTreeViewMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveTreeViewMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo
ResolveTreeViewMethod "setDragDestRow" o = TreeViewSetDragDestRowMethodInfo
ResolveTreeViewMethod "setEnableSearch" o = TreeViewSetEnableSearchMethodInfo
ResolveTreeViewMethod "setEnableTreeLines" o = TreeViewSetEnableTreeLinesMethodInfo
ResolveTreeViewMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo
ResolveTreeViewMethod "setExpanderColumn" o = TreeViewSetExpanderColumnMethodInfo
ResolveTreeViewMethod "setFixedHeightMode" o = TreeViewSetFixedHeightModeMethodInfo
ResolveTreeViewMethod "setFocusChain" o = Gtk.Container.ContainerSetFocusChainMethodInfo
ResolveTreeViewMethod "setFocusChild" o = Gtk.Container.ContainerSetFocusChildMethodInfo
ResolveTreeViewMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo
ResolveTreeViewMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveTreeViewMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo
ResolveTreeViewMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveTreeViewMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveTreeViewMethod "setGridLines" o = TreeViewSetGridLinesMethodInfo
ResolveTreeViewMethod "setHadjustment" o = TreeViewSetHadjustmentMethodInfo
ResolveTreeViewMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveTreeViewMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveTreeViewMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo
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 "setLevelIndentation" o = TreeViewSetLevelIndentationMethodInfo
ResolveTreeViewMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo
ResolveTreeViewMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveTreeViewMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveTreeViewMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo
ResolveTreeViewMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo
ResolveTreeViewMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveTreeViewMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveTreeViewMethod "setModel" o = TreeViewSetModelMethodInfo
ResolveTreeViewMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveTreeViewMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo
ResolveTreeViewMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveTreeViewMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveTreeViewMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo
ResolveTreeViewMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveTreeViewMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo
ResolveTreeViewMethod "setReallocateRedraws" o = Gtk.Container.ContainerSetReallocateRedrawsMethodInfo
ResolveTreeViewMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveTreeViewMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo
ResolveTreeViewMethod "setReorderable" o = TreeViewSetReorderableMethodInfo
ResolveTreeViewMethod "setResizeMode" o = Gtk.Container.ContainerSetResizeModeMethodInfo
ResolveTreeViewMethod "setRowSeparatorFunc" o = TreeViewSetRowSeparatorFuncMethodInfo
ResolveTreeViewMethod "setRubberBanding" o = TreeViewSetRubberBandingMethodInfo
ResolveTreeViewMethod "setRulesHint" o = TreeViewSetRulesHintMethodInfo
ResolveTreeViewMethod "setSearchColumn" o = TreeViewSetSearchColumnMethodInfo
ResolveTreeViewMethod "setSearchEntry" o = TreeViewSetSearchEntryMethodInfo
ResolveTreeViewMethod "setSearchEqualFunc" o = TreeViewSetSearchEqualFuncMethodInfo
ResolveTreeViewMethod "setSearchPositionFunc" o = TreeViewSetSearchPositionFuncMethodInfo
ResolveTreeViewMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveTreeViewMethod "setShowExpanders" o = TreeViewSetShowExpandersMethodInfo
ResolveTreeViewMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveTreeViewMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo
ResolveTreeViewMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveTreeViewMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo
ResolveTreeViewMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
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 "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolveTreeViewMethod "setVadjustment" o = TreeViewSetVadjustmentMethodInfo
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 "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo
ResolveTreeViewMethod "setVscrollPolicy" o = Gtk.Scrollable.ScrollableSetVscrollPolicyMethodInfo
ResolveTreeViewMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo
ResolveTreeViewMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTreeViewMethod t TreeView, O.MethodInfo 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
#endif
type TreeViewColumnsChangedCallback =
IO ()
noTreeViewColumnsChangedCallback :: Maybe TreeViewColumnsChangedCallback
noTreeViewColumnsChangedCallback :: Maybe (IO ())
noTreeViewColumnsChangedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_TreeViewColumnsChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TreeViewColumnsChangedCallback :: C_TreeViewColumnsChangedCallback -> IO (FunPtr C_TreeViewColumnsChangedCallback)
genClosure_TreeViewColumnsChanged :: MonadIO m => TreeViewColumnsChangedCallback -> m (GClosure C_TreeViewColumnsChangedCallback)
genClosure_TreeViewColumnsChanged :: IO () -> m (GClosure C_TreeViewColumnsChangedCallback)
genClosure_TreeViewColumnsChanged cb :: IO ()
cb = IO (GClosure C_TreeViewColumnsChangedCallback)
-> m (GClosure C_TreeViewColumnsChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TreeViewColumnsChangedCallback)
-> m (GClosure C_TreeViewColumnsChangedCallback))
-> IO (GClosure C_TreeViewColumnsChangedCallback)
-> m (GClosure C_TreeViewColumnsChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewColumnsChangedCallback
cb' = IO () -> C_TreeViewColumnsChangedCallback
wrap_TreeViewColumnsChangedCallback IO ()
cb
C_TreeViewColumnsChangedCallback
-> IO (FunPtr C_TreeViewColumnsChangedCallback)
mk_TreeViewColumnsChangedCallback C_TreeViewColumnsChangedCallback
cb' IO (FunPtr C_TreeViewColumnsChangedCallback)
-> (FunPtr C_TreeViewColumnsChangedCallback
-> IO (GClosure C_TreeViewColumnsChangedCallback))
-> IO (GClosure C_TreeViewColumnsChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TreeViewColumnsChangedCallback
-> IO (GClosure C_TreeViewColumnsChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TreeViewColumnsChangedCallback ::
TreeViewColumnsChangedCallback ->
C_TreeViewColumnsChangedCallback
wrap_TreeViewColumnsChangedCallback :: IO () -> C_TreeViewColumnsChangedCallback
wrap_TreeViewColumnsChangedCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onTreeViewColumnsChanged :: (IsTreeView a, MonadIO m) => a -> TreeViewColumnsChangedCallback -> m SignalHandlerId
onTreeViewColumnsChanged :: a -> IO () -> m SignalHandlerId
onTreeViewColumnsChanged obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewColumnsChangedCallback
cb' = IO () -> C_TreeViewColumnsChangedCallback
wrap_TreeViewColumnsChangedCallback IO ()
cb
FunPtr C_TreeViewColumnsChangedCallback
cb'' <- C_TreeViewColumnsChangedCallback
-> IO (FunPtr C_TreeViewColumnsChangedCallback)
mk_TreeViewColumnsChangedCallback C_TreeViewColumnsChangedCallback
cb'
a
-> Text
-> FunPtr C_TreeViewColumnsChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "columns-changed" FunPtr C_TreeViewColumnsChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTreeViewColumnsChanged :: (IsTreeView a, MonadIO m) => a -> TreeViewColumnsChangedCallback -> m SignalHandlerId
afterTreeViewColumnsChanged :: a -> IO () -> m SignalHandlerId
afterTreeViewColumnsChanged obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewColumnsChangedCallback
cb' = IO () -> C_TreeViewColumnsChangedCallback
wrap_TreeViewColumnsChangedCallback IO ()
cb
FunPtr C_TreeViewColumnsChangedCallback
cb'' <- C_TreeViewColumnsChangedCallback
-> IO (FunPtr C_TreeViewColumnsChangedCallback)
mk_TreeViewColumnsChangedCallback C_TreeViewColumnsChangedCallback
cb'
a
-> Text
-> FunPtr C_TreeViewColumnsChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "columns-changed" FunPtr C_TreeViewColumnsChangedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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
#endif
type TreeViewCursorChangedCallback =
IO ()
noTreeViewCursorChangedCallback :: Maybe TreeViewCursorChangedCallback
noTreeViewCursorChangedCallback :: Maybe (IO ())
noTreeViewCursorChangedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_TreeViewCursorChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TreeViewCursorChangedCallback :: C_TreeViewCursorChangedCallback -> IO (FunPtr C_TreeViewCursorChangedCallback)
genClosure_TreeViewCursorChanged :: MonadIO m => TreeViewCursorChangedCallback -> m (GClosure C_TreeViewCursorChangedCallback)
genClosure_TreeViewCursorChanged :: IO () -> m (GClosure C_TreeViewColumnsChangedCallback)
genClosure_TreeViewCursorChanged cb :: IO ()
cb = IO (GClosure C_TreeViewColumnsChangedCallback)
-> m (GClosure C_TreeViewColumnsChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TreeViewColumnsChangedCallback)
-> m (GClosure C_TreeViewColumnsChangedCallback))
-> IO (GClosure C_TreeViewColumnsChangedCallback)
-> m (GClosure C_TreeViewColumnsChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewColumnsChangedCallback
cb' = IO () -> C_TreeViewColumnsChangedCallback
wrap_TreeViewCursorChangedCallback IO ()
cb
C_TreeViewColumnsChangedCallback
-> IO (FunPtr C_TreeViewColumnsChangedCallback)
mk_TreeViewCursorChangedCallback C_TreeViewColumnsChangedCallback
cb' IO (FunPtr C_TreeViewColumnsChangedCallback)
-> (FunPtr C_TreeViewColumnsChangedCallback
-> IO (GClosure C_TreeViewColumnsChangedCallback))
-> IO (GClosure C_TreeViewColumnsChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TreeViewColumnsChangedCallback
-> IO (GClosure C_TreeViewColumnsChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TreeViewCursorChangedCallback ::
TreeViewCursorChangedCallback ->
C_TreeViewCursorChangedCallback
wrap_TreeViewCursorChangedCallback :: IO () -> C_TreeViewColumnsChangedCallback
wrap_TreeViewCursorChangedCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onTreeViewCursorChanged :: (IsTreeView a, MonadIO m) => a -> TreeViewCursorChangedCallback -> m SignalHandlerId
onTreeViewCursorChanged :: a -> IO () -> m SignalHandlerId
onTreeViewCursorChanged obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewColumnsChangedCallback
cb' = IO () -> C_TreeViewColumnsChangedCallback
wrap_TreeViewCursorChangedCallback IO ()
cb
FunPtr C_TreeViewColumnsChangedCallback
cb'' <- C_TreeViewColumnsChangedCallback
-> IO (FunPtr C_TreeViewColumnsChangedCallback)
mk_TreeViewCursorChangedCallback C_TreeViewColumnsChangedCallback
cb'
a
-> Text
-> FunPtr C_TreeViewColumnsChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "cursor-changed" FunPtr C_TreeViewColumnsChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTreeViewCursorChanged :: (IsTreeView a, MonadIO m) => a -> TreeViewCursorChangedCallback -> m SignalHandlerId
afterTreeViewCursorChanged :: a -> IO () -> m SignalHandlerId
afterTreeViewCursorChanged obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewColumnsChangedCallback
cb' = IO () -> C_TreeViewColumnsChangedCallback
wrap_TreeViewCursorChangedCallback IO ()
cb
FunPtr C_TreeViewColumnsChangedCallback
cb'' <- C_TreeViewColumnsChangedCallback
-> IO (FunPtr C_TreeViewColumnsChangedCallback)
mk_TreeViewCursorChangedCallback C_TreeViewColumnsChangedCallback
cb'
a
-> Text
-> FunPtr C_TreeViewColumnsChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "cursor-changed" FunPtr C_TreeViewColumnsChangedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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
#endif
type TreeViewExpandCollapseCursorRowCallback =
Bool
-> Bool
-> Bool
-> IO Bool
noTreeViewExpandCollapseCursorRowCallback :: Maybe TreeViewExpandCollapseCursorRowCallback
noTreeViewExpandCollapseCursorRowCallback :: Maybe TreeViewExpandCollapseCursorRowCallback
noTreeViewExpandCollapseCursorRowCallback = Maybe TreeViewExpandCollapseCursorRowCallback
forall a. Maybe a
Nothing
type C_TreeViewExpandCollapseCursorRowCallback =
Ptr () ->
CInt ->
CInt ->
CInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_TreeViewExpandCollapseCursorRowCallback :: C_TreeViewExpandCollapseCursorRowCallback -> IO (FunPtr C_TreeViewExpandCollapseCursorRowCallback)
genClosure_TreeViewExpandCollapseCursorRow :: MonadIO m => TreeViewExpandCollapseCursorRowCallback -> m (GClosure C_TreeViewExpandCollapseCursorRowCallback)
genClosure_TreeViewExpandCollapseCursorRow :: TreeViewExpandCollapseCursorRowCallback
-> m (GClosure C_TreeViewExpandCollapseCursorRowCallback)
genClosure_TreeViewExpandCollapseCursorRow cb :: TreeViewExpandCollapseCursorRowCallback
cb = IO (GClosure C_TreeViewExpandCollapseCursorRowCallback)
-> m (GClosure C_TreeViewExpandCollapseCursorRowCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TreeViewExpandCollapseCursorRowCallback)
-> m (GClosure C_TreeViewExpandCollapseCursorRowCallback))
-> IO (GClosure C_TreeViewExpandCollapseCursorRowCallback)
-> m (GClosure C_TreeViewExpandCollapseCursorRowCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewExpandCollapseCursorRowCallback
cb' = TreeViewExpandCollapseCursorRowCallback
-> C_TreeViewExpandCollapseCursorRowCallback
wrap_TreeViewExpandCollapseCursorRowCallback TreeViewExpandCollapseCursorRowCallback
cb
C_TreeViewExpandCollapseCursorRowCallback
-> IO (FunPtr C_TreeViewExpandCollapseCursorRowCallback)
mk_TreeViewExpandCollapseCursorRowCallback C_TreeViewExpandCollapseCursorRowCallback
cb' IO (FunPtr C_TreeViewExpandCollapseCursorRowCallback)
-> (FunPtr C_TreeViewExpandCollapseCursorRowCallback
-> IO (GClosure C_TreeViewExpandCollapseCursorRowCallback))
-> IO (GClosure C_TreeViewExpandCollapseCursorRowCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TreeViewExpandCollapseCursorRowCallback
-> IO (GClosure C_TreeViewExpandCollapseCursorRowCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TreeViewExpandCollapseCursorRowCallback ::
TreeViewExpandCollapseCursorRowCallback ->
C_TreeViewExpandCollapseCursorRowCallback
wrap_TreeViewExpandCollapseCursorRowCallback :: TreeViewExpandCollapseCursorRowCallback
-> C_TreeViewExpandCollapseCursorRowCallback
wrap_TreeViewExpandCollapseCursorRowCallback _cb :: TreeViewExpandCollapseCursorRowCallback
_cb _ object :: CInt
object p0 :: CInt
p0 p1 :: CInt
p1 _ = do
let object' :: Bool
object' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
object
let p0' :: Bool
p0' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
p0
let p1' :: Bool
p1' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
p1
Bool
result <- TreeViewExpandCollapseCursorRowCallback
_cb Bool
object' Bool
p0' Bool
p1'
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onTreeViewExpandCollapseCursorRow :: (IsTreeView a, MonadIO m) => a -> TreeViewExpandCollapseCursorRowCallback -> m SignalHandlerId
onTreeViewExpandCollapseCursorRow :: a -> TreeViewExpandCollapseCursorRowCallback -> m SignalHandlerId
onTreeViewExpandCollapseCursorRow obj :: a
obj cb :: TreeViewExpandCollapseCursorRowCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewExpandCollapseCursorRowCallback
cb' = TreeViewExpandCollapseCursorRowCallback
-> C_TreeViewExpandCollapseCursorRowCallback
wrap_TreeViewExpandCollapseCursorRowCallback TreeViewExpandCollapseCursorRowCallback
cb
FunPtr C_TreeViewExpandCollapseCursorRowCallback
cb'' <- C_TreeViewExpandCollapseCursorRowCallback
-> IO (FunPtr C_TreeViewExpandCollapseCursorRowCallback)
mk_TreeViewExpandCollapseCursorRowCallback C_TreeViewExpandCollapseCursorRowCallback
cb'
a
-> Text
-> FunPtr C_TreeViewExpandCollapseCursorRowCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "expand-collapse-cursor-row" FunPtr C_TreeViewExpandCollapseCursorRowCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTreeViewExpandCollapseCursorRow :: (IsTreeView a, MonadIO m) => a -> TreeViewExpandCollapseCursorRowCallback -> m SignalHandlerId
afterTreeViewExpandCollapseCursorRow :: a -> TreeViewExpandCollapseCursorRowCallback -> m SignalHandlerId
afterTreeViewExpandCollapseCursorRow obj :: a
obj cb :: TreeViewExpandCollapseCursorRowCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewExpandCollapseCursorRowCallback
cb' = TreeViewExpandCollapseCursorRowCallback
-> C_TreeViewExpandCollapseCursorRowCallback
wrap_TreeViewExpandCollapseCursorRowCallback TreeViewExpandCollapseCursorRowCallback
cb
FunPtr C_TreeViewExpandCollapseCursorRowCallback
cb'' <- C_TreeViewExpandCollapseCursorRowCallback
-> IO (FunPtr C_TreeViewExpandCollapseCursorRowCallback)
mk_TreeViewExpandCollapseCursorRowCallback C_TreeViewExpandCollapseCursorRowCallback
cb'
a
-> Text
-> FunPtr C_TreeViewExpandCollapseCursorRowCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "expand-collapse-cursor-row" FunPtr C_TreeViewExpandCollapseCursorRowCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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
#endif
type TreeViewMoveCursorCallback =
Gtk.Enums.MovementStep
-> Int32
-> IO Bool
noTreeViewMoveCursorCallback :: Maybe TreeViewMoveCursorCallback
noTreeViewMoveCursorCallback :: Maybe TreeViewMoveCursorCallback
noTreeViewMoveCursorCallback = Maybe TreeViewMoveCursorCallback
forall a. Maybe a
Nothing
type C_TreeViewMoveCursorCallback =
Ptr () ->
CUInt ->
Int32 ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_TreeViewMoveCursorCallback :: C_TreeViewMoveCursorCallback -> IO (FunPtr C_TreeViewMoveCursorCallback)
genClosure_TreeViewMoveCursor :: MonadIO m => TreeViewMoveCursorCallback -> m (GClosure C_TreeViewMoveCursorCallback)
genClosure_TreeViewMoveCursor :: TreeViewMoveCursorCallback
-> m (GClosure C_TreeViewMoveCursorCallback)
genClosure_TreeViewMoveCursor cb :: TreeViewMoveCursorCallback
cb = IO (GClosure C_TreeViewMoveCursorCallback)
-> m (GClosure C_TreeViewMoveCursorCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TreeViewMoveCursorCallback)
-> m (GClosure C_TreeViewMoveCursorCallback))
-> IO (GClosure C_TreeViewMoveCursorCallback)
-> m (GClosure C_TreeViewMoveCursorCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewMoveCursorCallback
cb' = TreeViewMoveCursorCallback -> C_TreeViewMoveCursorCallback
wrap_TreeViewMoveCursorCallback TreeViewMoveCursorCallback
cb
C_TreeViewMoveCursorCallback
-> IO (FunPtr C_TreeViewMoveCursorCallback)
mk_TreeViewMoveCursorCallback C_TreeViewMoveCursorCallback
cb' IO (FunPtr C_TreeViewMoveCursorCallback)
-> (FunPtr C_TreeViewMoveCursorCallback
-> IO (GClosure C_TreeViewMoveCursorCallback))
-> IO (GClosure C_TreeViewMoveCursorCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TreeViewMoveCursorCallback
-> IO (GClosure C_TreeViewMoveCursorCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TreeViewMoveCursorCallback ::
TreeViewMoveCursorCallback ->
C_TreeViewMoveCursorCallback
wrap_TreeViewMoveCursorCallback :: TreeViewMoveCursorCallback -> C_TreeViewMoveCursorCallback
wrap_TreeViewMoveCursorCallback _cb :: TreeViewMoveCursorCallback
_cb _ step :: CUInt
step direction :: Int32
direction _ = 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
Bool
result <- TreeViewMoveCursorCallback
_cb MovementStep
step' Int32
direction
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onTreeViewMoveCursor :: (IsTreeView a, MonadIO m) => a -> TreeViewMoveCursorCallback -> m SignalHandlerId
onTreeViewMoveCursor :: a -> TreeViewMoveCursorCallback -> m SignalHandlerId
onTreeViewMoveCursor obj :: a
obj cb :: TreeViewMoveCursorCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewMoveCursorCallback
cb' = TreeViewMoveCursorCallback -> C_TreeViewMoveCursorCallback
wrap_TreeViewMoveCursorCallback TreeViewMoveCursorCallback
cb
FunPtr C_TreeViewMoveCursorCallback
cb'' <- C_TreeViewMoveCursorCallback
-> IO (FunPtr C_TreeViewMoveCursorCallback)
mk_TreeViewMoveCursorCallback C_TreeViewMoveCursorCallback
cb'
a
-> Text
-> FunPtr C_TreeViewMoveCursorCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "move-cursor" FunPtr C_TreeViewMoveCursorCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTreeViewMoveCursor :: (IsTreeView a, MonadIO m) => a -> TreeViewMoveCursorCallback -> m SignalHandlerId
afterTreeViewMoveCursor :: a -> TreeViewMoveCursorCallback -> m SignalHandlerId
afterTreeViewMoveCursor obj :: a
obj cb :: TreeViewMoveCursorCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewMoveCursorCallback
cb' = TreeViewMoveCursorCallback -> C_TreeViewMoveCursorCallback
wrap_TreeViewMoveCursorCallback TreeViewMoveCursorCallback
cb
FunPtr C_TreeViewMoveCursorCallback
cb'' <- C_TreeViewMoveCursorCallback
-> IO (FunPtr C_TreeViewMoveCursorCallback)
mk_TreeViewMoveCursorCallback C_TreeViewMoveCursorCallback
cb'
a
-> Text
-> FunPtr C_TreeViewMoveCursorCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "move-cursor" FunPtr C_TreeViewMoveCursorCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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
#endif
type TreeViewRowActivatedCallback =
Gtk.TreePath.TreePath
-> Gtk.TreeViewColumn.TreeViewColumn
-> IO ()
noTreeViewRowActivatedCallback :: Maybe TreeViewRowActivatedCallback
noTreeViewRowActivatedCallback :: Maybe TreeViewRowActivatedCallback
noTreeViewRowActivatedCallback = Maybe TreeViewRowActivatedCallback
forall a. Maybe a
Nothing
type C_TreeViewRowActivatedCallback =
Ptr () ->
Ptr Gtk.TreePath.TreePath ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TreeViewRowActivatedCallback :: C_TreeViewRowActivatedCallback -> IO (FunPtr C_TreeViewRowActivatedCallback)
genClosure_TreeViewRowActivated :: MonadIO m => TreeViewRowActivatedCallback -> m (GClosure C_TreeViewRowActivatedCallback)
genClosure_TreeViewRowActivated :: TreeViewRowActivatedCallback
-> m (GClosure C_TreeViewRowActivatedCallback)
genClosure_TreeViewRowActivated cb :: TreeViewRowActivatedCallback
cb = IO (GClosure C_TreeViewRowActivatedCallback)
-> m (GClosure C_TreeViewRowActivatedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TreeViewRowActivatedCallback)
-> m (GClosure C_TreeViewRowActivatedCallback))
-> IO (GClosure C_TreeViewRowActivatedCallback)
-> m (GClosure C_TreeViewRowActivatedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewRowActivatedCallback
cb' = TreeViewRowActivatedCallback -> C_TreeViewRowActivatedCallback
wrap_TreeViewRowActivatedCallback TreeViewRowActivatedCallback
cb
C_TreeViewRowActivatedCallback
-> IO (FunPtr C_TreeViewRowActivatedCallback)
mk_TreeViewRowActivatedCallback C_TreeViewRowActivatedCallback
cb' IO (FunPtr C_TreeViewRowActivatedCallback)
-> (FunPtr C_TreeViewRowActivatedCallback
-> IO (GClosure C_TreeViewRowActivatedCallback))
-> IO (GClosure C_TreeViewRowActivatedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TreeViewRowActivatedCallback
-> IO (GClosure C_TreeViewRowActivatedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TreeViewRowActivatedCallback ::
TreeViewRowActivatedCallback ->
C_TreeViewRowActivatedCallback
wrap_TreeViewRowActivatedCallback :: TreeViewRowActivatedCallback -> C_TreeViewRowActivatedCallback
wrap_TreeViewRowActivatedCallback _cb :: TreeViewRowActivatedCallback
_cb _ path :: Ptr TreePath
path column :: Ptr TreeViewColumn
column _ = do
(ManagedPtr TreePath -> TreePath)
-> Ptr TreePath -> (TreePath -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath Ptr TreePath
path ((TreePath -> IO ()) -> IO ()) -> (TreePath -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \path' :: TreePath
path' -> do
TreeViewColumn
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
TreeViewRowActivatedCallback
_cb TreePath
path' TreeViewColumn
column'
onTreeViewRowActivated :: (IsTreeView a, MonadIO m) => a -> TreeViewRowActivatedCallback -> m SignalHandlerId
onTreeViewRowActivated :: a -> TreeViewRowActivatedCallback -> m SignalHandlerId
onTreeViewRowActivated obj :: a
obj cb :: TreeViewRowActivatedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewRowActivatedCallback
cb' = TreeViewRowActivatedCallback -> C_TreeViewRowActivatedCallback
wrap_TreeViewRowActivatedCallback TreeViewRowActivatedCallback
cb
FunPtr C_TreeViewRowActivatedCallback
cb'' <- C_TreeViewRowActivatedCallback
-> IO (FunPtr C_TreeViewRowActivatedCallback)
mk_TreeViewRowActivatedCallback C_TreeViewRowActivatedCallback
cb'
a
-> Text
-> FunPtr C_TreeViewRowActivatedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "row-activated" FunPtr C_TreeViewRowActivatedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTreeViewRowActivated :: (IsTreeView a, MonadIO m) => a -> TreeViewRowActivatedCallback -> m SignalHandlerId
afterTreeViewRowActivated :: a -> TreeViewRowActivatedCallback -> m SignalHandlerId
afterTreeViewRowActivated obj :: a
obj cb :: TreeViewRowActivatedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewRowActivatedCallback
cb' = TreeViewRowActivatedCallback -> C_TreeViewRowActivatedCallback
wrap_TreeViewRowActivatedCallback TreeViewRowActivatedCallback
cb
FunPtr C_TreeViewRowActivatedCallback
cb'' <- C_TreeViewRowActivatedCallback
-> IO (FunPtr C_TreeViewRowActivatedCallback)
mk_TreeViewRowActivatedCallback C_TreeViewRowActivatedCallback
cb'
a
-> Text
-> FunPtr C_TreeViewRowActivatedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "row-activated" FunPtr C_TreeViewRowActivatedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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
#endif
type TreeViewRowCollapsedCallback =
Gtk.TreeIter.TreeIter
-> Gtk.TreePath.TreePath
-> IO ()
noTreeViewRowCollapsedCallback :: Maybe TreeViewRowCollapsedCallback
noTreeViewRowCollapsedCallback :: Maybe TreeViewRowCollapsedCallback
noTreeViewRowCollapsedCallback = Maybe TreeViewRowCollapsedCallback
forall a. Maybe a
Nothing
type C_TreeViewRowCollapsedCallback =
Ptr () ->
Ptr Gtk.TreeIter.TreeIter ->
Ptr Gtk.TreePath.TreePath ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TreeViewRowCollapsedCallback :: C_TreeViewRowCollapsedCallback -> IO (FunPtr C_TreeViewRowCollapsedCallback)
genClosure_TreeViewRowCollapsed :: MonadIO m => TreeViewRowCollapsedCallback -> m (GClosure C_TreeViewRowCollapsedCallback)
genClosure_TreeViewRowCollapsed :: TreeViewRowCollapsedCallback
-> m (GClosure C_TreeViewRowCollapsedCallback)
genClosure_TreeViewRowCollapsed cb :: TreeViewRowCollapsedCallback
cb = IO (GClosure C_TreeViewRowCollapsedCallback)
-> m (GClosure C_TreeViewRowCollapsedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TreeViewRowCollapsedCallback)
-> m (GClosure C_TreeViewRowCollapsedCallback))
-> IO (GClosure C_TreeViewRowCollapsedCallback)
-> m (GClosure C_TreeViewRowCollapsedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewRowCollapsedCallback
cb' = TreeViewRowCollapsedCallback -> C_TreeViewRowCollapsedCallback
wrap_TreeViewRowCollapsedCallback TreeViewRowCollapsedCallback
cb
C_TreeViewRowCollapsedCallback
-> IO (FunPtr C_TreeViewRowCollapsedCallback)
mk_TreeViewRowCollapsedCallback C_TreeViewRowCollapsedCallback
cb' IO (FunPtr C_TreeViewRowCollapsedCallback)
-> (FunPtr C_TreeViewRowCollapsedCallback
-> IO (GClosure C_TreeViewRowCollapsedCallback))
-> IO (GClosure C_TreeViewRowCollapsedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TreeViewRowCollapsedCallback
-> IO (GClosure C_TreeViewRowCollapsedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TreeViewRowCollapsedCallback ::
TreeViewRowCollapsedCallback ->
C_TreeViewRowCollapsedCallback
wrap_TreeViewRowCollapsedCallback :: TreeViewRowCollapsedCallback -> C_TreeViewRowCollapsedCallback
wrap_TreeViewRowCollapsedCallback _cb :: TreeViewRowCollapsedCallback
_cb _ iter :: Ptr TreeIter
iter path :: Ptr TreePath
path _ = do
(ManagedPtr TreeIter -> TreeIter)
-> Ptr TreeIter -> (TreeIter -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TreeIter -> TreeIter
Gtk.TreeIter.TreeIter Ptr TreeIter
iter ((TreeIter -> IO ()) -> IO ()) -> (TreeIter -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \iter' :: TreeIter
iter' -> do
(ManagedPtr TreePath -> TreePath)
-> Ptr TreePath -> (TreePath -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath Ptr TreePath
path ((TreePath -> IO ()) -> IO ()) -> (TreePath -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \path' :: TreePath
path' -> do
TreeViewRowCollapsedCallback
_cb TreeIter
iter' TreePath
path'
onTreeViewRowCollapsed :: (IsTreeView a, MonadIO m) => a -> TreeViewRowCollapsedCallback -> m SignalHandlerId
onTreeViewRowCollapsed :: a -> TreeViewRowCollapsedCallback -> m SignalHandlerId
onTreeViewRowCollapsed obj :: a
obj cb :: TreeViewRowCollapsedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewRowCollapsedCallback
cb' = TreeViewRowCollapsedCallback -> C_TreeViewRowCollapsedCallback
wrap_TreeViewRowCollapsedCallback TreeViewRowCollapsedCallback
cb
FunPtr C_TreeViewRowCollapsedCallback
cb'' <- C_TreeViewRowCollapsedCallback
-> IO (FunPtr C_TreeViewRowCollapsedCallback)
mk_TreeViewRowCollapsedCallback C_TreeViewRowCollapsedCallback
cb'
a
-> Text
-> FunPtr C_TreeViewRowCollapsedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "row-collapsed" FunPtr C_TreeViewRowCollapsedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTreeViewRowCollapsed :: (IsTreeView a, MonadIO m) => a -> TreeViewRowCollapsedCallback -> m SignalHandlerId
afterTreeViewRowCollapsed :: a -> TreeViewRowCollapsedCallback -> m SignalHandlerId
afterTreeViewRowCollapsed obj :: a
obj cb :: TreeViewRowCollapsedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewRowCollapsedCallback
cb' = TreeViewRowCollapsedCallback -> C_TreeViewRowCollapsedCallback
wrap_TreeViewRowCollapsedCallback TreeViewRowCollapsedCallback
cb
FunPtr C_TreeViewRowCollapsedCallback
cb'' <- C_TreeViewRowCollapsedCallback
-> IO (FunPtr C_TreeViewRowCollapsedCallback)
mk_TreeViewRowCollapsedCallback C_TreeViewRowCollapsedCallback
cb'
a
-> Text
-> FunPtr C_TreeViewRowCollapsedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "row-collapsed" FunPtr C_TreeViewRowCollapsedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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
#endif
type TreeViewRowExpandedCallback =
Gtk.TreeIter.TreeIter
-> Gtk.TreePath.TreePath
-> IO ()
noTreeViewRowExpandedCallback :: Maybe TreeViewRowExpandedCallback
noTreeViewRowExpandedCallback :: Maybe TreeViewRowCollapsedCallback
noTreeViewRowExpandedCallback = Maybe TreeViewRowCollapsedCallback
forall a. Maybe a
Nothing
type C_TreeViewRowExpandedCallback =
Ptr () ->
Ptr Gtk.TreeIter.TreeIter ->
Ptr Gtk.TreePath.TreePath ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TreeViewRowExpandedCallback :: C_TreeViewRowExpandedCallback -> IO (FunPtr C_TreeViewRowExpandedCallback)
genClosure_TreeViewRowExpanded :: MonadIO m => TreeViewRowExpandedCallback -> m (GClosure C_TreeViewRowExpandedCallback)
genClosure_TreeViewRowExpanded :: TreeViewRowCollapsedCallback
-> m (GClosure C_TreeViewRowCollapsedCallback)
genClosure_TreeViewRowExpanded cb :: TreeViewRowCollapsedCallback
cb = IO (GClosure C_TreeViewRowCollapsedCallback)
-> m (GClosure C_TreeViewRowCollapsedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TreeViewRowCollapsedCallback)
-> m (GClosure C_TreeViewRowCollapsedCallback))
-> IO (GClosure C_TreeViewRowCollapsedCallback)
-> m (GClosure C_TreeViewRowCollapsedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewRowCollapsedCallback
cb' = TreeViewRowCollapsedCallback -> C_TreeViewRowCollapsedCallback
wrap_TreeViewRowExpandedCallback TreeViewRowCollapsedCallback
cb
C_TreeViewRowCollapsedCallback
-> IO (FunPtr C_TreeViewRowCollapsedCallback)
mk_TreeViewRowExpandedCallback C_TreeViewRowCollapsedCallback
cb' IO (FunPtr C_TreeViewRowCollapsedCallback)
-> (FunPtr C_TreeViewRowCollapsedCallback
-> IO (GClosure C_TreeViewRowCollapsedCallback))
-> IO (GClosure C_TreeViewRowCollapsedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TreeViewRowCollapsedCallback
-> IO (GClosure C_TreeViewRowCollapsedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TreeViewRowExpandedCallback ::
TreeViewRowExpandedCallback ->
C_TreeViewRowExpandedCallback
wrap_TreeViewRowExpandedCallback :: TreeViewRowCollapsedCallback -> C_TreeViewRowCollapsedCallback
wrap_TreeViewRowExpandedCallback _cb :: TreeViewRowCollapsedCallback
_cb _ iter :: Ptr TreeIter
iter path :: Ptr TreePath
path _ = do
(ManagedPtr TreeIter -> TreeIter)
-> Ptr TreeIter -> (TreeIter -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TreeIter -> TreeIter
Gtk.TreeIter.TreeIter Ptr TreeIter
iter ((TreeIter -> IO ()) -> IO ()) -> (TreeIter -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \iter' :: TreeIter
iter' -> do
(ManagedPtr TreePath -> TreePath)
-> Ptr TreePath -> (TreePath -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath Ptr TreePath
path ((TreePath -> IO ()) -> IO ()) -> (TreePath -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \path' :: TreePath
path' -> do
TreeViewRowCollapsedCallback
_cb TreeIter
iter' TreePath
path'
onTreeViewRowExpanded :: (IsTreeView a, MonadIO m) => a -> TreeViewRowExpandedCallback -> m SignalHandlerId
onTreeViewRowExpanded :: a -> TreeViewRowCollapsedCallback -> m SignalHandlerId
onTreeViewRowExpanded obj :: a
obj cb :: TreeViewRowCollapsedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewRowCollapsedCallback
cb' = TreeViewRowCollapsedCallback -> C_TreeViewRowCollapsedCallback
wrap_TreeViewRowExpandedCallback TreeViewRowCollapsedCallback
cb
FunPtr C_TreeViewRowCollapsedCallback
cb'' <- C_TreeViewRowCollapsedCallback
-> IO (FunPtr C_TreeViewRowCollapsedCallback)
mk_TreeViewRowExpandedCallback C_TreeViewRowCollapsedCallback
cb'
a
-> Text
-> FunPtr C_TreeViewRowCollapsedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "row-expanded" FunPtr C_TreeViewRowCollapsedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTreeViewRowExpanded :: (IsTreeView a, MonadIO m) => a -> TreeViewRowExpandedCallback -> m SignalHandlerId
afterTreeViewRowExpanded :: a -> TreeViewRowCollapsedCallback -> m SignalHandlerId
afterTreeViewRowExpanded obj :: a
obj cb :: TreeViewRowCollapsedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewRowCollapsedCallback
cb' = TreeViewRowCollapsedCallback -> C_TreeViewRowCollapsedCallback
wrap_TreeViewRowExpandedCallback TreeViewRowCollapsedCallback
cb
FunPtr C_TreeViewRowCollapsedCallback
cb'' <- C_TreeViewRowCollapsedCallback
-> IO (FunPtr C_TreeViewRowCollapsedCallback)
mk_TreeViewRowExpandedCallback C_TreeViewRowCollapsedCallback
cb'
a
-> Text
-> FunPtr C_TreeViewRowCollapsedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "row-expanded" FunPtr C_TreeViewRowCollapsedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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
#endif
type TreeViewSelectAllCallback =
IO Bool
noTreeViewSelectAllCallback :: Maybe TreeViewSelectAllCallback
noTreeViewSelectAllCallback :: Maybe TreeViewSelectAllCallback
noTreeViewSelectAllCallback = Maybe TreeViewSelectAllCallback
forall a. Maybe a
Nothing
type C_TreeViewSelectAllCallback =
Ptr () ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_TreeViewSelectAllCallback :: C_TreeViewSelectAllCallback -> IO (FunPtr C_TreeViewSelectAllCallback)
genClosure_TreeViewSelectAll :: MonadIO m => TreeViewSelectAllCallback -> m (GClosure C_TreeViewSelectAllCallback)
genClosure_TreeViewSelectAll :: TreeViewSelectAllCallback
-> m (GClosure C_TreeViewSelectAllCallback)
genClosure_TreeViewSelectAll cb :: TreeViewSelectAllCallback
cb = IO (GClosure C_TreeViewSelectAllCallback)
-> m (GClosure C_TreeViewSelectAllCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TreeViewSelectAllCallback)
-> m (GClosure C_TreeViewSelectAllCallback))
-> IO (GClosure C_TreeViewSelectAllCallback)
-> m (GClosure C_TreeViewSelectAllCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewSelectAllCallback
cb' = TreeViewSelectAllCallback -> C_TreeViewSelectAllCallback
wrap_TreeViewSelectAllCallback TreeViewSelectAllCallback
cb
C_TreeViewSelectAllCallback
-> IO (FunPtr C_TreeViewSelectAllCallback)
mk_TreeViewSelectAllCallback C_TreeViewSelectAllCallback
cb' IO (FunPtr C_TreeViewSelectAllCallback)
-> (FunPtr C_TreeViewSelectAllCallback
-> IO (GClosure C_TreeViewSelectAllCallback))
-> IO (GClosure C_TreeViewSelectAllCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TreeViewSelectAllCallback
-> IO (GClosure C_TreeViewSelectAllCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TreeViewSelectAllCallback ::
TreeViewSelectAllCallback ->
C_TreeViewSelectAllCallback
wrap_TreeViewSelectAllCallback :: TreeViewSelectAllCallback -> C_TreeViewSelectAllCallback
wrap_TreeViewSelectAllCallback _cb :: TreeViewSelectAllCallback
_cb _ _ = do
Bool
result <- TreeViewSelectAllCallback
_cb
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onTreeViewSelectAll :: (IsTreeView a, MonadIO m) => a -> TreeViewSelectAllCallback -> m SignalHandlerId
onTreeViewSelectAll :: a -> TreeViewSelectAllCallback -> m SignalHandlerId
onTreeViewSelectAll obj :: a
obj cb :: TreeViewSelectAllCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewSelectAllCallback
cb' = TreeViewSelectAllCallback -> C_TreeViewSelectAllCallback
wrap_TreeViewSelectAllCallback TreeViewSelectAllCallback
cb
FunPtr C_TreeViewSelectAllCallback
cb'' <- C_TreeViewSelectAllCallback
-> IO (FunPtr C_TreeViewSelectAllCallback)
mk_TreeViewSelectAllCallback C_TreeViewSelectAllCallback
cb'
a
-> Text
-> FunPtr C_TreeViewSelectAllCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "select-all" FunPtr C_TreeViewSelectAllCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTreeViewSelectAll :: (IsTreeView a, MonadIO m) => a -> TreeViewSelectAllCallback -> m SignalHandlerId
afterTreeViewSelectAll :: a -> TreeViewSelectAllCallback -> m SignalHandlerId
afterTreeViewSelectAll obj :: a
obj cb :: TreeViewSelectAllCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewSelectAllCallback
cb' = TreeViewSelectAllCallback -> C_TreeViewSelectAllCallback
wrap_TreeViewSelectAllCallback TreeViewSelectAllCallback
cb
FunPtr C_TreeViewSelectAllCallback
cb'' <- C_TreeViewSelectAllCallback
-> IO (FunPtr C_TreeViewSelectAllCallback)
mk_TreeViewSelectAllCallback C_TreeViewSelectAllCallback
cb'
a
-> Text
-> FunPtr C_TreeViewSelectAllCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "select-all" FunPtr C_TreeViewSelectAllCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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
#endif
type TreeViewSelectCursorParentCallback =
IO Bool
noTreeViewSelectCursorParentCallback :: Maybe TreeViewSelectCursorParentCallback
noTreeViewSelectCursorParentCallback :: Maybe TreeViewSelectAllCallback
noTreeViewSelectCursorParentCallback = Maybe TreeViewSelectAllCallback
forall a. Maybe a
Nothing
type C_TreeViewSelectCursorParentCallback =
Ptr () ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_TreeViewSelectCursorParentCallback :: C_TreeViewSelectCursorParentCallback -> IO (FunPtr C_TreeViewSelectCursorParentCallback)
genClosure_TreeViewSelectCursorParent :: MonadIO m => TreeViewSelectCursorParentCallback -> m (GClosure C_TreeViewSelectCursorParentCallback)
genClosure_TreeViewSelectCursorParent :: TreeViewSelectAllCallback
-> m (GClosure C_TreeViewSelectAllCallback)
genClosure_TreeViewSelectCursorParent cb :: TreeViewSelectAllCallback
cb = IO (GClosure C_TreeViewSelectAllCallback)
-> m (GClosure C_TreeViewSelectAllCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TreeViewSelectAllCallback)
-> m (GClosure C_TreeViewSelectAllCallback))
-> IO (GClosure C_TreeViewSelectAllCallback)
-> m (GClosure C_TreeViewSelectAllCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewSelectAllCallback
cb' = TreeViewSelectAllCallback -> C_TreeViewSelectAllCallback
wrap_TreeViewSelectCursorParentCallback TreeViewSelectAllCallback
cb
C_TreeViewSelectAllCallback
-> IO (FunPtr C_TreeViewSelectAllCallback)
mk_TreeViewSelectCursorParentCallback C_TreeViewSelectAllCallback
cb' IO (FunPtr C_TreeViewSelectAllCallback)
-> (FunPtr C_TreeViewSelectAllCallback
-> IO (GClosure C_TreeViewSelectAllCallback))
-> IO (GClosure C_TreeViewSelectAllCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TreeViewSelectAllCallback
-> IO (GClosure C_TreeViewSelectAllCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TreeViewSelectCursorParentCallback ::
TreeViewSelectCursorParentCallback ->
C_TreeViewSelectCursorParentCallback
wrap_TreeViewSelectCursorParentCallback :: TreeViewSelectAllCallback -> C_TreeViewSelectAllCallback
wrap_TreeViewSelectCursorParentCallback _cb :: TreeViewSelectAllCallback
_cb _ _ = do
Bool
result <- TreeViewSelectAllCallback
_cb
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onTreeViewSelectCursorParent :: (IsTreeView a, MonadIO m) => a -> TreeViewSelectCursorParentCallback -> m SignalHandlerId
onTreeViewSelectCursorParent :: a -> TreeViewSelectAllCallback -> m SignalHandlerId
onTreeViewSelectCursorParent obj :: a
obj cb :: TreeViewSelectAllCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewSelectAllCallback
cb' = TreeViewSelectAllCallback -> C_TreeViewSelectAllCallback
wrap_TreeViewSelectCursorParentCallback TreeViewSelectAllCallback
cb
FunPtr C_TreeViewSelectAllCallback
cb'' <- C_TreeViewSelectAllCallback
-> IO (FunPtr C_TreeViewSelectAllCallback)
mk_TreeViewSelectCursorParentCallback C_TreeViewSelectAllCallback
cb'
a
-> Text
-> FunPtr C_TreeViewSelectAllCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "select-cursor-parent" FunPtr C_TreeViewSelectAllCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTreeViewSelectCursorParent :: (IsTreeView a, MonadIO m) => a -> TreeViewSelectCursorParentCallback -> m SignalHandlerId
afterTreeViewSelectCursorParent :: a -> TreeViewSelectAllCallback -> m SignalHandlerId
afterTreeViewSelectCursorParent obj :: a
obj cb :: TreeViewSelectAllCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewSelectAllCallback
cb' = TreeViewSelectAllCallback -> C_TreeViewSelectAllCallback
wrap_TreeViewSelectCursorParentCallback TreeViewSelectAllCallback
cb
FunPtr C_TreeViewSelectAllCallback
cb'' <- C_TreeViewSelectAllCallback
-> IO (FunPtr C_TreeViewSelectAllCallback)
mk_TreeViewSelectCursorParentCallback C_TreeViewSelectAllCallback
cb'
a
-> Text
-> FunPtr C_TreeViewSelectAllCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "select-cursor-parent" FunPtr C_TreeViewSelectAllCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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
#endif
type TreeViewSelectCursorRowCallback =
Bool
-> IO Bool
noTreeViewSelectCursorRowCallback :: Maybe TreeViewSelectCursorRowCallback
noTreeViewSelectCursorRowCallback :: Maybe TreeViewSelectCursorRowCallback
noTreeViewSelectCursorRowCallback = Maybe TreeViewSelectCursorRowCallback
forall a. Maybe a
Nothing
type C_TreeViewSelectCursorRowCallback =
Ptr () ->
CInt ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_TreeViewSelectCursorRowCallback :: C_TreeViewSelectCursorRowCallback -> IO (FunPtr C_TreeViewSelectCursorRowCallback)
genClosure_TreeViewSelectCursorRow :: MonadIO m => TreeViewSelectCursorRowCallback -> m (GClosure C_TreeViewSelectCursorRowCallback)
genClosure_TreeViewSelectCursorRow :: TreeViewSelectCursorRowCallback
-> m (GClosure C_TreeViewSelectCursorRowCallback)
genClosure_TreeViewSelectCursorRow cb :: TreeViewSelectCursorRowCallback
cb = IO (GClosure C_TreeViewSelectCursorRowCallback)
-> m (GClosure C_TreeViewSelectCursorRowCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TreeViewSelectCursorRowCallback)
-> m (GClosure C_TreeViewSelectCursorRowCallback))
-> IO (GClosure C_TreeViewSelectCursorRowCallback)
-> m (GClosure C_TreeViewSelectCursorRowCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewSelectCursorRowCallback
cb' = TreeViewSelectCursorRowCallback
-> C_TreeViewSelectCursorRowCallback
wrap_TreeViewSelectCursorRowCallback TreeViewSelectCursorRowCallback
cb
C_TreeViewSelectCursorRowCallback
-> IO (FunPtr C_TreeViewSelectCursorRowCallback)
mk_TreeViewSelectCursorRowCallback C_TreeViewSelectCursorRowCallback
cb' IO (FunPtr C_TreeViewSelectCursorRowCallback)
-> (FunPtr C_TreeViewSelectCursorRowCallback
-> IO (GClosure C_TreeViewSelectCursorRowCallback))
-> IO (GClosure C_TreeViewSelectCursorRowCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TreeViewSelectCursorRowCallback
-> IO (GClosure C_TreeViewSelectCursorRowCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TreeViewSelectCursorRowCallback ::
TreeViewSelectCursorRowCallback ->
C_TreeViewSelectCursorRowCallback
wrap_TreeViewSelectCursorRowCallback :: TreeViewSelectCursorRowCallback
-> C_TreeViewSelectCursorRowCallback
wrap_TreeViewSelectCursorRowCallback _cb :: TreeViewSelectCursorRowCallback
_cb _ object :: CInt
object _ = do
let object' :: Bool
object' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
object
Bool
result <- TreeViewSelectCursorRowCallback
_cb Bool
object'
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onTreeViewSelectCursorRow :: (IsTreeView a, MonadIO m) => a -> TreeViewSelectCursorRowCallback -> m SignalHandlerId
onTreeViewSelectCursorRow :: a -> TreeViewSelectCursorRowCallback -> m SignalHandlerId
onTreeViewSelectCursorRow obj :: a
obj cb :: TreeViewSelectCursorRowCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewSelectCursorRowCallback
cb' = TreeViewSelectCursorRowCallback
-> C_TreeViewSelectCursorRowCallback
wrap_TreeViewSelectCursorRowCallback TreeViewSelectCursorRowCallback
cb
FunPtr C_TreeViewSelectCursorRowCallback
cb'' <- C_TreeViewSelectCursorRowCallback
-> IO (FunPtr C_TreeViewSelectCursorRowCallback)
mk_TreeViewSelectCursorRowCallback C_TreeViewSelectCursorRowCallback
cb'
a
-> Text
-> FunPtr C_TreeViewSelectCursorRowCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "select-cursor-row" FunPtr C_TreeViewSelectCursorRowCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTreeViewSelectCursorRow :: (IsTreeView a, MonadIO m) => a -> TreeViewSelectCursorRowCallback -> m SignalHandlerId
afterTreeViewSelectCursorRow :: a -> TreeViewSelectCursorRowCallback -> m SignalHandlerId
afterTreeViewSelectCursorRow obj :: a
obj cb :: TreeViewSelectCursorRowCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewSelectCursorRowCallback
cb' = TreeViewSelectCursorRowCallback
-> C_TreeViewSelectCursorRowCallback
wrap_TreeViewSelectCursorRowCallback TreeViewSelectCursorRowCallback
cb
FunPtr C_TreeViewSelectCursorRowCallback
cb'' <- C_TreeViewSelectCursorRowCallback
-> IO (FunPtr C_TreeViewSelectCursorRowCallback)
mk_TreeViewSelectCursorRowCallback C_TreeViewSelectCursorRowCallback
cb'
a
-> Text
-> FunPtr C_TreeViewSelectCursorRowCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "select-cursor-row" FunPtr C_TreeViewSelectCursorRowCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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
#endif
type TreeViewStartInteractiveSearchCallback =
IO Bool
noTreeViewStartInteractiveSearchCallback :: Maybe TreeViewStartInteractiveSearchCallback
noTreeViewStartInteractiveSearchCallback :: Maybe TreeViewSelectAllCallback
noTreeViewStartInteractiveSearchCallback = Maybe TreeViewSelectAllCallback
forall a. Maybe a
Nothing
type C_TreeViewStartInteractiveSearchCallback =
Ptr () ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_TreeViewStartInteractiveSearchCallback :: C_TreeViewStartInteractiveSearchCallback -> IO (FunPtr C_TreeViewStartInteractiveSearchCallback)
genClosure_TreeViewStartInteractiveSearch :: MonadIO m => TreeViewStartInteractiveSearchCallback -> m (GClosure C_TreeViewStartInteractiveSearchCallback)
genClosure_TreeViewStartInteractiveSearch :: TreeViewSelectAllCallback
-> m (GClosure C_TreeViewSelectAllCallback)
genClosure_TreeViewStartInteractiveSearch cb :: TreeViewSelectAllCallback
cb = IO (GClosure C_TreeViewSelectAllCallback)
-> m (GClosure C_TreeViewSelectAllCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TreeViewSelectAllCallback)
-> m (GClosure C_TreeViewSelectAllCallback))
-> IO (GClosure C_TreeViewSelectAllCallback)
-> m (GClosure C_TreeViewSelectAllCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewSelectAllCallback
cb' = TreeViewSelectAllCallback -> C_TreeViewSelectAllCallback
wrap_TreeViewStartInteractiveSearchCallback TreeViewSelectAllCallback
cb
C_TreeViewSelectAllCallback
-> IO (FunPtr C_TreeViewSelectAllCallback)
mk_TreeViewStartInteractiveSearchCallback C_TreeViewSelectAllCallback
cb' IO (FunPtr C_TreeViewSelectAllCallback)
-> (FunPtr C_TreeViewSelectAllCallback
-> IO (GClosure C_TreeViewSelectAllCallback))
-> IO (GClosure C_TreeViewSelectAllCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TreeViewSelectAllCallback
-> IO (GClosure C_TreeViewSelectAllCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TreeViewStartInteractiveSearchCallback ::
TreeViewStartInteractiveSearchCallback ->
C_TreeViewStartInteractiveSearchCallback
wrap_TreeViewStartInteractiveSearchCallback :: TreeViewSelectAllCallback -> C_TreeViewSelectAllCallback
wrap_TreeViewStartInteractiveSearchCallback _cb :: TreeViewSelectAllCallback
_cb _ _ = do
Bool
result <- TreeViewSelectAllCallback
_cb
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onTreeViewStartInteractiveSearch :: (IsTreeView a, MonadIO m) => a -> TreeViewStartInteractiveSearchCallback -> m SignalHandlerId
onTreeViewStartInteractiveSearch :: a -> TreeViewSelectAllCallback -> m SignalHandlerId
onTreeViewStartInteractiveSearch obj :: a
obj cb :: TreeViewSelectAllCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewSelectAllCallback
cb' = TreeViewSelectAllCallback -> C_TreeViewSelectAllCallback
wrap_TreeViewStartInteractiveSearchCallback TreeViewSelectAllCallback
cb
FunPtr C_TreeViewSelectAllCallback
cb'' <- C_TreeViewSelectAllCallback
-> IO (FunPtr C_TreeViewSelectAllCallback)
mk_TreeViewStartInteractiveSearchCallback C_TreeViewSelectAllCallback
cb'
a
-> Text
-> FunPtr C_TreeViewSelectAllCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "start-interactive-search" FunPtr C_TreeViewSelectAllCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTreeViewStartInteractiveSearch :: (IsTreeView a, MonadIO m) => a -> TreeViewStartInteractiveSearchCallback -> m SignalHandlerId
afterTreeViewStartInteractiveSearch :: a -> TreeViewSelectAllCallback -> m SignalHandlerId
afterTreeViewStartInteractiveSearch obj :: a
obj cb :: TreeViewSelectAllCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewSelectAllCallback
cb' = TreeViewSelectAllCallback -> C_TreeViewSelectAllCallback
wrap_TreeViewStartInteractiveSearchCallback TreeViewSelectAllCallback
cb
FunPtr C_TreeViewSelectAllCallback
cb'' <- C_TreeViewSelectAllCallback
-> IO (FunPtr C_TreeViewSelectAllCallback)
mk_TreeViewStartInteractiveSearchCallback C_TreeViewSelectAllCallback
cb'
a
-> Text
-> FunPtr C_TreeViewSelectAllCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "start-interactive-search" FunPtr C_TreeViewSelectAllCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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
#endif
type TreeViewTestCollapseRowCallback =
Gtk.TreeIter.TreeIter
-> Gtk.TreePath.TreePath
-> IO Bool
noTreeViewTestCollapseRowCallback :: Maybe TreeViewTestCollapseRowCallback
noTreeViewTestCollapseRowCallback :: Maybe TreeViewTestCollapseRowCallback
noTreeViewTestCollapseRowCallback = Maybe TreeViewTestCollapseRowCallback
forall a. Maybe a
Nothing
type C_TreeViewTestCollapseRowCallback =
Ptr () ->
Ptr Gtk.TreeIter.TreeIter ->
Ptr Gtk.TreePath.TreePath ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_TreeViewTestCollapseRowCallback :: C_TreeViewTestCollapseRowCallback -> IO (FunPtr C_TreeViewTestCollapseRowCallback)
genClosure_TreeViewTestCollapseRow :: MonadIO m => TreeViewTestCollapseRowCallback -> m (GClosure C_TreeViewTestCollapseRowCallback)
genClosure_TreeViewTestCollapseRow :: TreeViewTestCollapseRowCallback
-> m (GClosure C_TreeViewTestCollapseRowCallback)
genClosure_TreeViewTestCollapseRow cb :: TreeViewTestCollapseRowCallback
cb = IO (GClosure C_TreeViewTestCollapseRowCallback)
-> m (GClosure C_TreeViewTestCollapseRowCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TreeViewTestCollapseRowCallback)
-> m (GClosure C_TreeViewTestCollapseRowCallback))
-> IO (GClosure C_TreeViewTestCollapseRowCallback)
-> m (GClosure C_TreeViewTestCollapseRowCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewTestCollapseRowCallback
cb' = TreeViewTestCollapseRowCallback
-> C_TreeViewTestCollapseRowCallback
wrap_TreeViewTestCollapseRowCallback TreeViewTestCollapseRowCallback
cb
C_TreeViewTestCollapseRowCallback
-> IO (FunPtr C_TreeViewTestCollapseRowCallback)
mk_TreeViewTestCollapseRowCallback C_TreeViewTestCollapseRowCallback
cb' IO (FunPtr C_TreeViewTestCollapseRowCallback)
-> (FunPtr C_TreeViewTestCollapseRowCallback
-> IO (GClosure C_TreeViewTestCollapseRowCallback))
-> IO (GClosure C_TreeViewTestCollapseRowCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TreeViewTestCollapseRowCallback
-> IO (GClosure C_TreeViewTestCollapseRowCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TreeViewTestCollapseRowCallback ::
TreeViewTestCollapseRowCallback ->
C_TreeViewTestCollapseRowCallback
wrap_TreeViewTestCollapseRowCallback :: TreeViewTestCollapseRowCallback
-> C_TreeViewTestCollapseRowCallback
wrap_TreeViewTestCollapseRowCallback _cb :: TreeViewTestCollapseRowCallback
_cb _ iter :: Ptr TreeIter
iter path :: Ptr TreePath
path _ = do
(ManagedPtr TreeIter -> TreeIter)
-> Ptr TreeIter -> (TreeIter -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TreeIter -> TreeIter
Gtk.TreeIter.TreeIter Ptr TreeIter
iter ((TreeIter -> IO CInt) -> IO CInt)
-> (TreeIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \iter' :: TreeIter
iter' -> do
(ManagedPtr TreePath -> TreePath)
-> Ptr TreePath -> (TreePath -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath Ptr TreePath
path ((TreePath -> IO CInt) -> IO CInt)
-> (TreePath -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \path' :: TreePath
path' -> do
Bool
result <- TreeViewTestCollapseRowCallback
_cb TreeIter
iter' TreePath
path'
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onTreeViewTestCollapseRow :: (IsTreeView a, MonadIO m) => a -> TreeViewTestCollapseRowCallback -> m SignalHandlerId
onTreeViewTestCollapseRow :: a -> TreeViewTestCollapseRowCallback -> m SignalHandlerId
onTreeViewTestCollapseRow obj :: a
obj cb :: TreeViewTestCollapseRowCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewTestCollapseRowCallback
cb' = TreeViewTestCollapseRowCallback
-> C_TreeViewTestCollapseRowCallback
wrap_TreeViewTestCollapseRowCallback TreeViewTestCollapseRowCallback
cb
FunPtr C_TreeViewTestCollapseRowCallback
cb'' <- C_TreeViewTestCollapseRowCallback
-> IO (FunPtr C_TreeViewTestCollapseRowCallback)
mk_TreeViewTestCollapseRowCallback C_TreeViewTestCollapseRowCallback
cb'
a
-> Text
-> FunPtr C_TreeViewTestCollapseRowCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "test-collapse-row" FunPtr C_TreeViewTestCollapseRowCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTreeViewTestCollapseRow :: (IsTreeView a, MonadIO m) => a -> TreeViewTestCollapseRowCallback -> m SignalHandlerId
afterTreeViewTestCollapseRow :: a -> TreeViewTestCollapseRowCallback -> m SignalHandlerId
afterTreeViewTestCollapseRow obj :: a
obj cb :: TreeViewTestCollapseRowCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewTestCollapseRowCallback
cb' = TreeViewTestCollapseRowCallback
-> C_TreeViewTestCollapseRowCallback
wrap_TreeViewTestCollapseRowCallback TreeViewTestCollapseRowCallback
cb
FunPtr C_TreeViewTestCollapseRowCallback
cb'' <- C_TreeViewTestCollapseRowCallback
-> IO (FunPtr C_TreeViewTestCollapseRowCallback)
mk_TreeViewTestCollapseRowCallback C_TreeViewTestCollapseRowCallback
cb'
a
-> Text
-> FunPtr C_TreeViewTestCollapseRowCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "test-collapse-row" FunPtr C_TreeViewTestCollapseRowCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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
#endif
type TreeViewTestExpandRowCallback =
Gtk.TreeIter.TreeIter
-> Gtk.TreePath.TreePath
-> IO Bool
noTreeViewTestExpandRowCallback :: Maybe TreeViewTestExpandRowCallback
noTreeViewTestExpandRowCallback :: Maybe TreeViewTestCollapseRowCallback
noTreeViewTestExpandRowCallback = Maybe TreeViewTestCollapseRowCallback
forall a. Maybe a
Nothing
type C_TreeViewTestExpandRowCallback =
Ptr () ->
Ptr Gtk.TreeIter.TreeIter ->
Ptr Gtk.TreePath.TreePath ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_TreeViewTestExpandRowCallback :: C_TreeViewTestExpandRowCallback -> IO (FunPtr C_TreeViewTestExpandRowCallback)
genClosure_TreeViewTestExpandRow :: MonadIO m => TreeViewTestExpandRowCallback -> m (GClosure C_TreeViewTestExpandRowCallback)
genClosure_TreeViewTestExpandRow :: TreeViewTestCollapseRowCallback
-> m (GClosure C_TreeViewTestCollapseRowCallback)
genClosure_TreeViewTestExpandRow cb :: TreeViewTestCollapseRowCallback
cb = IO (GClosure C_TreeViewTestCollapseRowCallback)
-> m (GClosure C_TreeViewTestCollapseRowCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TreeViewTestCollapseRowCallback)
-> m (GClosure C_TreeViewTestCollapseRowCallback))
-> IO (GClosure C_TreeViewTestCollapseRowCallback)
-> m (GClosure C_TreeViewTestCollapseRowCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewTestCollapseRowCallback
cb' = TreeViewTestCollapseRowCallback
-> C_TreeViewTestCollapseRowCallback
wrap_TreeViewTestExpandRowCallback TreeViewTestCollapseRowCallback
cb
C_TreeViewTestCollapseRowCallback
-> IO (FunPtr C_TreeViewTestCollapseRowCallback)
mk_TreeViewTestExpandRowCallback C_TreeViewTestCollapseRowCallback
cb' IO (FunPtr C_TreeViewTestCollapseRowCallback)
-> (FunPtr C_TreeViewTestCollapseRowCallback
-> IO (GClosure C_TreeViewTestCollapseRowCallback))
-> IO (GClosure C_TreeViewTestCollapseRowCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TreeViewTestCollapseRowCallback
-> IO (GClosure C_TreeViewTestCollapseRowCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TreeViewTestExpandRowCallback ::
TreeViewTestExpandRowCallback ->
C_TreeViewTestExpandRowCallback
wrap_TreeViewTestExpandRowCallback :: TreeViewTestCollapseRowCallback
-> C_TreeViewTestCollapseRowCallback
wrap_TreeViewTestExpandRowCallback _cb :: TreeViewTestCollapseRowCallback
_cb _ iter :: Ptr TreeIter
iter path :: Ptr TreePath
path _ = do
(ManagedPtr TreeIter -> TreeIter)
-> Ptr TreeIter -> (TreeIter -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TreeIter -> TreeIter
Gtk.TreeIter.TreeIter Ptr TreeIter
iter ((TreeIter -> IO CInt) -> IO CInt)
-> (TreeIter -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \iter' :: TreeIter
iter' -> do
(ManagedPtr TreePath -> TreePath)
-> Ptr TreePath -> (TreePath -> IO CInt) -> IO CInt
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath Ptr TreePath
path ((TreePath -> IO CInt) -> IO CInt)
-> (TreePath -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \path' :: TreePath
path' -> do
Bool
result <- TreeViewTestCollapseRowCallback
_cb TreeIter
iter' TreePath
path'
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onTreeViewTestExpandRow :: (IsTreeView a, MonadIO m) => a -> TreeViewTestExpandRowCallback -> m SignalHandlerId
onTreeViewTestExpandRow :: a -> TreeViewTestCollapseRowCallback -> m SignalHandlerId
onTreeViewTestExpandRow obj :: a
obj cb :: TreeViewTestCollapseRowCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewTestCollapseRowCallback
cb' = TreeViewTestCollapseRowCallback
-> C_TreeViewTestCollapseRowCallback
wrap_TreeViewTestExpandRowCallback TreeViewTestCollapseRowCallback
cb
FunPtr C_TreeViewTestCollapseRowCallback
cb'' <- C_TreeViewTestCollapseRowCallback
-> IO (FunPtr C_TreeViewTestCollapseRowCallback)
mk_TreeViewTestExpandRowCallback C_TreeViewTestCollapseRowCallback
cb'
a
-> Text
-> FunPtr C_TreeViewTestCollapseRowCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "test-expand-row" FunPtr C_TreeViewTestCollapseRowCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTreeViewTestExpandRow :: (IsTreeView a, MonadIO m) => a -> TreeViewTestExpandRowCallback -> m SignalHandlerId
afterTreeViewTestExpandRow :: a -> TreeViewTestCollapseRowCallback -> m SignalHandlerId
afterTreeViewTestExpandRow obj :: a
obj cb :: TreeViewTestCollapseRowCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewTestCollapseRowCallback
cb' = TreeViewTestCollapseRowCallback
-> C_TreeViewTestCollapseRowCallback
wrap_TreeViewTestExpandRowCallback TreeViewTestCollapseRowCallback
cb
FunPtr C_TreeViewTestCollapseRowCallback
cb'' <- C_TreeViewTestCollapseRowCallback
-> IO (FunPtr C_TreeViewTestCollapseRowCallback)
mk_TreeViewTestExpandRowCallback C_TreeViewTestCollapseRowCallback
cb'
a
-> Text
-> FunPtr C_TreeViewTestCollapseRowCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "test-expand-row" FunPtr C_TreeViewTestCollapseRowCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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
#endif
type TreeViewToggleCursorRowCallback =
IO Bool
noTreeViewToggleCursorRowCallback :: Maybe TreeViewToggleCursorRowCallback
noTreeViewToggleCursorRowCallback :: Maybe TreeViewSelectAllCallback
noTreeViewToggleCursorRowCallback = Maybe TreeViewSelectAllCallback
forall a. Maybe a
Nothing
type C_TreeViewToggleCursorRowCallback =
Ptr () ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_TreeViewToggleCursorRowCallback :: C_TreeViewToggleCursorRowCallback -> IO (FunPtr C_TreeViewToggleCursorRowCallback)
genClosure_TreeViewToggleCursorRow :: MonadIO m => TreeViewToggleCursorRowCallback -> m (GClosure C_TreeViewToggleCursorRowCallback)
genClosure_TreeViewToggleCursorRow :: TreeViewSelectAllCallback
-> m (GClosure C_TreeViewSelectAllCallback)
genClosure_TreeViewToggleCursorRow cb :: TreeViewSelectAllCallback
cb = IO (GClosure C_TreeViewSelectAllCallback)
-> m (GClosure C_TreeViewSelectAllCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TreeViewSelectAllCallback)
-> m (GClosure C_TreeViewSelectAllCallback))
-> IO (GClosure C_TreeViewSelectAllCallback)
-> m (GClosure C_TreeViewSelectAllCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewSelectAllCallback
cb' = TreeViewSelectAllCallback -> C_TreeViewSelectAllCallback
wrap_TreeViewToggleCursorRowCallback TreeViewSelectAllCallback
cb
C_TreeViewSelectAllCallback
-> IO (FunPtr C_TreeViewSelectAllCallback)
mk_TreeViewToggleCursorRowCallback C_TreeViewSelectAllCallback
cb' IO (FunPtr C_TreeViewSelectAllCallback)
-> (FunPtr C_TreeViewSelectAllCallback
-> IO (GClosure C_TreeViewSelectAllCallback))
-> IO (GClosure C_TreeViewSelectAllCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TreeViewSelectAllCallback
-> IO (GClosure C_TreeViewSelectAllCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TreeViewToggleCursorRowCallback ::
TreeViewToggleCursorRowCallback ->
C_TreeViewToggleCursorRowCallback
wrap_TreeViewToggleCursorRowCallback :: TreeViewSelectAllCallback -> C_TreeViewSelectAllCallback
wrap_TreeViewToggleCursorRowCallback _cb :: TreeViewSelectAllCallback
_cb _ _ = do
Bool
result <- TreeViewSelectAllCallback
_cb
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onTreeViewToggleCursorRow :: (IsTreeView a, MonadIO m) => a -> TreeViewToggleCursorRowCallback -> m SignalHandlerId
onTreeViewToggleCursorRow :: a -> TreeViewSelectAllCallback -> m SignalHandlerId
onTreeViewToggleCursorRow obj :: a
obj cb :: TreeViewSelectAllCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewSelectAllCallback
cb' = TreeViewSelectAllCallback -> C_TreeViewSelectAllCallback
wrap_TreeViewToggleCursorRowCallback TreeViewSelectAllCallback
cb
FunPtr C_TreeViewSelectAllCallback
cb'' <- C_TreeViewSelectAllCallback
-> IO (FunPtr C_TreeViewSelectAllCallback)
mk_TreeViewToggleCursorRowCallback C_TreeViewSelectAllCallback
cb'
a
-> Text
-> FunPtr C_TreeViewSelectAllCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "toggle-cursor-row" FunPtr C_TreeViewSelectAllCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTreeViewToggleCursorRow :: (IsTreeView a, MonadIO m) => a -> TreeViewToggleCursorRowCallback -> m SignalHandlerId
afterTreeViewToggleCursorRow :: a -> TreeViewSelectAllCallback -> m SignalHandlerId
afterTreeViewToggleCursorRow obj :: a
obj cb :: TreeViewSelectAllCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewSelectAllCallback
cb' = TreeViewSelectAllCallback -> C_TreeViewSelectAllCallback
wrap_TreeViewToggleCursorRowCallback TreeViewSelectAllCallback
cb
FunPtr C_TreeViewSelectAllCallback
cb'' <- C_TreeViewSelectAllCallback
-> IO (FunPtr C_TreeViewSelectAllCallback)
mk_TreeViewToggleCursorRowCallback C_TreeViewSelectAllCallback
cb'
a
-> Text
-> FunPtr C_TreeViewSelectAllCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "toggle-cursor-row" FunPtr C_TreeViewSelectAllCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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
#endif
type TreeViewUnselectAllCallback =
IO Bool
noTreeViewUnselectAllCallback :: Maybe TreeViewUnselectAllCallback
noTreeViewUnselectAllCallback :: Maybe TreeViewSelectAllCallback
noTreeViewUnselectAllCallback = Maybe TreeViewSelectAllCallback
forall a. Maybe a
Nothing
type C_TreeViewUnselectAllCallback =
Ptr () ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_TreeViewUnselectAllCallback :: C_TreeViewUnselectAllCallback -> IO (FunPtr C_TreeViewUnselectAllCallback)
genClosure_TreeViewUnselectAll :: MonadIO m => TreeViewUnselectAllCallback -> m (GClosure C_TreeViewUnselectAllCallback)
genClosure_TreeViewUnselectAll :: TreeViewSelectAllCallback
-> m (GClosure C_TreeViewSelectAllCallback)
genClosure_TreeViewUnselectAll cb :: TreeViewSelectAllCallback
cb = IO (GClosure C_TreeViewSelectAllCallback)
-> m (GClosure C_TreeViewSelectAllCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TreeViewSelectAllCallback)
-> m (GClosure C_TreeViewSelectAllCallback))
-> IO (GClosure C_TreeViewSelectAllCallback)
-> m (GClosure C_TreeViewSelectAllCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewSelectAllCallback
cb' = TreeViewSelectAllCallback -> C_TreeViewSelectAllCallback
wrap_TreeViewUnselectAllCallback TreeViewSelectAllCallback
cb
C_TreeViewSelectAllCallback
-> IO (FunPtr C_TreeViewSelectAllCallback)
mk_TreeViewUnselectAllCallback C_TreeViewSelectAllCallback
cb' IO (FunPtr C_TreeViewSelectAllCallback)
-> (FunPtr C_TreeViewSelectAllCallback
-> IO (GClosure C_TreeViewSelectAllCallback))
-> IO (GClosure C_TreeViewSelectAllCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TreeViewSelectAllCallback
-> IO (GClosure C_TreeViewSelectAllCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TreeViewUnselectAllCallback ::
TreeViewUnselectAllCallback ->
C_TreeViewUnselectAllCallback
wrap_TreeViewUnselectAllCallback :: TreeViewSelectAllCallback -> C_TreeViewSelectAllCallback
wrap_TreeViewUnselectAllCallback _cb :: TreeViewSelectAllCallback
_cb _ _ = do
Bool
result <- TreeViewSelectAllCallback
_cb
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onTreeViewUnselectAll :: (IsTreeView a, MonadIO m) => a -> TreeViewUnselectAllCallback -> m SignalHandlerId
onTreeViewUnselectAll :: a -> TreeViewSelectAllCallback -> m SignalHandlerId
onTreeViewUnselectAll obj :: a
obj cb :: TreeViewSelectAllCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewSelectAllCallback
cb' = TreeViewSelectAllCallback -> C_TreeViewSelectAllCallback
wrap_TreeViewUnselectAllCallback TreeViewSelectAllCallback
cb
FunPtr C_TreeViewSelectAllCallback
cb'' <- C_TreeViewSelectAllCallback
-> IO (FunPtr C_TreeViewSelectAllCallback)
mk_TreeViewUnselectAllCallback C_TreeViewSelectAllCallback
cb'
a
-> Text
-> FunPtr C_TreeViewSelectAllCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "unselect-all" FunPtr C_TreeViewSelectAllCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTreeViewUnselectAll :: (IsTreeView a, MonadIO m) => a -> TreeViewUnselectAllCallback -> m SignalHandlerId
afterTreeViewUnselectAll :: a -> TreeViewSelectAllCallback -> m SignalHandlerId
afterTreeViewUnselectAll obj :: a
obj cb :: TreeViewSelectAllCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewSelectAllCallback
cb' = TreeViewSelectAllCallback -> C_TreeViewSelectAllCallback
wrap_TreeViewUnselectAllCallback TreeViewSelectAllCallback
cb
FunPtr C_TreeViewSelectAllCallback
cb'' <- C_TreeViewSelectAllCallback
-> IO (FunPtr C_TreeViewSelectAllCallback)
mk_TreeViewUnselectAllCallback C_TreeViewSelectAllCallback
cb'
a
-> Text
-> FunPtr C_TreeViewSelectAllCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "unselect-all" FunPtr C_TreeViewSelectAllCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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
#endif
getTreeViewActivateOnSingleClick :: (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewActivateOnSingleClick :: o -> m Bool
getTreeViewActivateOnSingleClick obj :: o
obj = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TreeViewSelectAllCallback -> m Bool)
-> TreeViewSelectAllCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> TreeViewSelectAllCallback
forall a. GObject a => a -> String -> TreeViewSelectAllCallback
B.Properties.getObjectPropertyBool o
obj "activate-on-single-click"
setTreeViewActivateOnSingleClick :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
setTreeViewActivateOnSingleClick :: o -> Bool -> m ()
setTreeViewActivateOnSingleClick obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "activate-on-single-click" Bool
val
constructTreeViewActivateOnSingleClick :: (IsTreeView o) => Bool -> IO (GValueConstruct o)
constructTreeViewActivateOnSingleClick :: Bool -> IO (GValueConstruct o)
constructTreeViewActivateOnSingleClick val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
#endif
getTreeViewEnableGridLines :: (MonadIO m, IsTreeView o) => o -> m Gtk.Enums.TreeViewGridLines
getTreeViewEnableGridLines :: o -> m TreeViewGridLines
getTreeViewEnableGridLines obj :: o
obj = IO TreeViewGridLines -> m TreeViewGridLines
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
$ o -> String -> IO TreeViewGridLines
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj "enable-grid-lines"
setTreeViewEnableGridLines :: (MonadIO m, IsTreeView o) => o -> Gtk.Enums.TreeViewGridLines -> m ()
setTreeViewEnableGridLines :: o -> TreeViewGridLines -> m ()
setTreeViewEnableGridLines obj :: o
obj val :: TreeViewGridLines
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> TreeViewGridLines -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj "enable-grid-lines" TreeViewGridLines
val
constructTreeViewEnableGridLines :: (IsTreeView o) => Gtk.Enums.TreeViewGridLines -> IO (GValueConstruct o)
constructTreeViewEnableGridLines :: TreeViewGridLines -> IO (GValueConstruct o)
constructTreeViewEnableGridLines val :: TreeViewGridLines
val = String -> TreeViewGridLines -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum "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
#endif
getTreeViewEnableSearch :: (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewEnableSearch :: o -> m Bool
getTreeViewEnableSearch obj :: o
obj = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TreeViewSelectAllCallback -> m Bool)
-> TreeViewSelectAllCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> TreeViewSelectAllCallback
forall a. GObject a => a -> String -> TreeViewSelectAllCallback
B.Properties.getObjectPropertyBool o
obj "enable-search"
setTreeViewEnableSearch :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
setTreeViewEnableSearch :: o -> Bool -> m ()
setTreeViewEnableSearch obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-search" Bool
val
constructTreeViewEnableSearch :: (IsTreeView o) => Bool -> IO (GValueConstruct o)
constructTreeViewEnableSearch :: Bool -> IO (GValueConstruct o)
constructTreeViewEnableSearch val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
#endif
getTreeViewEnableTreeLines :: (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewEnableTreeLines :: o -> m Bool
getTreeViewEnableTreeLines obj :: o
obj = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TreeViewSelectAllCallback -> m Bool)
-> TreeViewSelectAllCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> TreeViewSelectAllCallback
forall a. GObject a => a -> String -> TreeViewSelectAllCallback
B.Properties.getObjectPropertyBool o
obj "enable-tree-lines"
setTreeViewEnableTreeLines :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
setTreeViewEnableTreeLines :: o -> Bool -> m ()
setTreeViewEnableTreeLines obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-tree-lines" Bool
val
constructTreeViewEnableTreeLines :: (IsTreeView o) => Bool -> IO (GValueConstruct o)
constructTreeViewEnableTreeLines :: Bool -> IO (GValueConstruct o)
constructTreeViewEnableTreeLines val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
#endif
getTreeViewExpanderColumn :: (MonadIO m, IsTreeView o) => o -> m Gtk.TreeViewColumn.TreeViewColumn
getTreeViewExpanderColumn :: o -> m TreeViewColumn
getTreeViewExpanderColumn obj :: o
obj = IO TreeViewColumn -> m TreeViewColumn
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
$ Text -> IO (Maybe TreeViewColumn) -> IO TreeViewColumn
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getTreeViewExpanderColumn" (IO (Maybe TreeViewColumn) -> IO TreeViewColumn)
-> IO (Maybe TreeViewColumn) -> IO 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 "expander-column" ManagedPtr TreeViewColumn -> TreeViewColumn
Gtk.TreeViewColumn.TreeViewColumn
setTreeViewExpanderColumn :: (MonadIO m, IsTreeView o, Gtk.TreeViewColumn.IsTreeViewColumn a) => o -> a -> m ()
setTreeViewExpanderColumn :: o -> a -> m ()
setTreeViewExpanderColumn obj :: o
obj val :: a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "expander-column" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructTreeViewExpanderColumn :: (IsTreeView o, Gtk.TreeViewColumn.IsTreeViewColumn a) => a -> IO (GValueConstruct o)
constructTreeViewExpanderColumn :: a -> IO (GValueConstruct o)
constructTreeViewExpanderColumn val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "expander-column" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
clearTreeViewExpanderColumn :: (MonadIO m, IsTreeView o) => o -> m ()
clearTreeViewExpanderColumn :: o -> m ()
clearTreeViewExpanderColumn obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe TreeViewColumn -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "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 = 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
#endif
getTreeViewFixedHeightMode :: (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewFixedHeightMode :: o -> m Bool
getTreeViewFixedHeightMode obj :: o
obj = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TreeViewSelectAllCallback -> m Bool)
-> TreeViewSelectAllCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> TreeViewSelectAllCallback
forall a. GObject a => a -> String -> TreeViewSelectAllCallback
B.Properties.getObjectPropertyBool o
obj "fixed-height-mode"
setTreeViewFixedHeightMode :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
setTreeViewFixedHeightMode :: o -> Bool -> m ()
setTreeViewFixedHeightMode obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "fixed-height-mode" Bool
val
constructTreeViewFixedHeightMode :: (IsTreeView o) => Bool -> IO (GValueConstruct o)
constructTreeViewFixedHeightMode :: Bool -> IO (GValueConstruct o)
constructTreeViewFixedHeightMode val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
#endif
getTreeViewHeadersClickable :: (MonadIO m, IsTreeView o) => o -> m Bool
obj :: o
obj = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TreeViewSelectAllCallback -> m Bool)
-> TreeViewSelectAllCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> TreeViewSelectAllCallback
forall a. GObject a => a -> String -> TreeViewSelectAllCallback
B.Properties.getObjectPropertyBool o
obj "headers-clickable"
setTreeViewHeadersClickable :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "headers-clickable" Bool
val
constructTreeViewHeadersClickable :: (IsTreeView o) => Bool -> IO (GValueConstruct o)
val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
#endif
getTreeViewHeadersVisible :: (MonadIO m, IsTreeView o) => o -> m Bool
obj :: o
obj = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TreeViewSelectAllCallback -> m Bool)
-> TreeViewSelectAllCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> TreeViewSelectAllCallback
forall a. GObject a => a -> String -> TreeViewSelectAllCallback
B.Properties.getObjectPropertyBool o
obj "headers-visible"
setTreeViewHeadersVisible :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "headers-visible" Bool
val
constructTreeViewHeadersVisible :: (IsTreeView o) => Bool -> IO (GValueConstruct o)
val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
#endif
getTreeViewHoverExpand :: (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewHoverExpand :: o -> m Bool
getTreeViewHoverExpand obj :: o
obj = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TreeViewSelectAllCallback -> m Bool)
-> TreeViewSelectAllCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> TreeViewSelectAllCallback
forall a. GObject a => a -> String -> TreeViewSelectAllCallback
B.Properties.getObjectPropertyBool o
obj "hover-expand"
setTreeViewHoverExpand :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
setTreeViewHoverExpand :: o -> Bool -> m ()
setTreeViewHoverExpand obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "hover-expand" Bool
val
constructTreeViewHoverExpand :: (IsTreeView o) => Bool -> IO (GValueConstruct o)
constructTreeViewHoverExpand :: Bool -> IO (GValueConstruct o)
constructTreeViewHoverExpand val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
#endif
getTreeViewHoverSelection :: (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewHoverSelection :: o -> m Bool
getTreeViewHoverSelection obj :: o
obj = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TreeViewSelectAllCallback -> m Bool)
-> TreeViewSelectAllCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> TreeViewSelectAllCallback
forall a. GObject a => a -> String -> TreeViewSelectAllCallback
B.Properties.getObjectPropertyBool o
obj "hover-selection"
setTreeViewHoverSelection :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
setTreeViewHoverSelection :: o -> Bool -> m ()
setTreeViewHoverSelection obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "hover-selection" Bool
val
constructTreeViewHoverSelection :: (IsTreeView o) => Bool -> IO (GValueConstruct o)
constructTreeViewHoverSelection :: Bool -> IO (GValueConstruct o)
constructTreeViewHoverSelection val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
#endif
getTreeViewLevelIndentation :: (MonadIO m, IsTreeView o) => o -> m Int32
getTreeViewLevelIndentation :: o -> m Int32
getTreeViewLevelIndentation obj :: o
obj = IO Int32 -> m Int32
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
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "level-indentation"
setTreeViewLevelIndentation :: (MonadIO m, IsTreeView o) => o -> Int32 -> m ()
setTreeViewLevelIndentation :: o -> Int32 -> m ()
setTreeViewLevelIndentation obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "level-indentation" Int32
val
constructTreeViewLevelIndentation :: (IsTreeView o) => Int32 -> IO (GValueConstruct o)
constructTreeViewLevelIndentation :: Int32 -> IO (GValueConstruct o)
constructTreeViewLevelIndentation val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "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
#endif
getTreeViewModel :: (MonadIO m, IsTreeView o) => o -> m (Maybe Gtk.TreeModel.TreeModel)
getTreeViewModel :: o -> m (Maybe TreeModel)
getTreeViewModel obj :: o
obj = IO (Maybe TreeModel) -> m (Maybe TreeModel)
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
$ 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 "model" ManagedPtr TreeModel -> TreeModel
Gtk.TreeModel.TreeModel
setTreeViewModel :: (MonadIO m, IsTreeView o, Gtk.TreeModel.IsTreeModel a) => o -> a -> m ()
setTreeViewModel :: o -> a -> m ()
setTreeViewModel obj :: o
obj val :: a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "model" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructTreeViewModel :: (IsTreeView o, Gtk.TreeModel.IsTreeModel a) => a -> IO (GValueConstruct o)
constructTreeViewModel :: a -> IO (GValueConstruct o)
constructTreeViewModel val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "model" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
clearTreeViewModel :: (MonadIO m, IsTreeView o) => o -> m ()
clearTreeViewModel :: o -> m ()
clearTreeViewModel obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe TreeModel -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "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
#endif
getTreeViewReorderable :: (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewReorderable :: o -> m Bool
getTreeViewReorderable obj :: o
obj = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TreeViewSelectAllCallback -> m Bool)
-> TreeViewSelectAllCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> TreeViewSelectAllCallback
forall a. GObject a => a -> String -> TreeViewSelectAllCallback
B.Properties.getObjectPropertyBool o
obj "reorderable"
setTreeViewReorderable :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
setTreeViewReorderable :: o -> Bool -> m ()
setTreeViewReorderable obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "reorderable" Bool
val
constructTreeViewReorderable :: (IsTreeView o) => Bool -> IO (GValueConstruct o)
constructTreeViewReorderable :: Bool -> IO (GValueConstruct o)
constructTreeViewReorderable val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
#endif
getTreeViewRubberBanding :: (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewRubberBanding :: o -> m Bool
getTreeViewRubberBanding obj :: o
obj = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TreeViewSelectAllCallback -> m Bool)
-> TreeViewSelectAllCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> TreeViewSelectAllCallback
forall a. GObject a => a -> String -> TreeViewSelectAllCallback
B.Properties.getObjectPropertyBool o
obj "rubber-banding"
setTreeViewRubberBanding :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
setTreeViewRubberBanding :: o -> Bool -> m ()
setTreeViewRubberBanding obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "rubber-banding" Bool
val
constructTreeViewRubberBanding :: (IsTreeView o) => Bool -> IO (GValueConstruct o)
constructTreeViewRubberBanding :: Bool -> IO (GValueConstruct o)
constructTreeViewRubberBanding val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
#endif
getTreeViewRulesHint :: (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewRulesHint :: o -> m Bool
getTreeViewRulesHint obj :: o
obj = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TreeViewSelectAllCallback -> m Bool)
-> TreeViewSelectAllCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> TreeViewSelectAllCallback
forall a. GObject a => a -> String -> TreeViewSelectAllCallback
B.Properties.getObjectPropertyBool o
obj "rules-hint"
setTreeViewRulesHint :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
setTreeViewRulesHint :: o -> Bool -> m ()
setTreeViewRulesHint obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "rules-hint" Bool
val
constructTreeViewRulesHint :: (IsTreeView o) => Bool -> IO (GValueConstruct o)
constructTreeViewRulesHint :: Bool -> IO (GValueConstruct o)
constructTreeViewRulesHint val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "rules-hint" Bool
val
#if defined(ENABLE_OVERLOADING)
data TreeViewRulesHintPropertyInfo
instance AttrInfo TreeViewRulesHintPropertyInfo where
type AttrAllowedOps TreeViewRulesHintPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewRulesHintPropertyInfo = IsTreeView
type AttrSetTypeConstraint TreeViewRulesHintPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TreeViewRulesHintPropertyInfo = (~) Bool
type AttrTransferType TreeViewRulesHintPropertyInfo = Bool
type AttrGetType TreeViewRulesHintPropertyInfo = Bool
type AttrLabel TreeViewRulesHintPropertyInfo = "rules-hint"
type AttrOrigin TreeViewRulesHintPropertyInfo = TreeView
attrGet = getTreeViewRulesHint
attrSet = setTreeViewRulesHint
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewRulesHint
attrClear = undefined
#endif
getTreeViewSearchColumn :: (MonadIO m, IsTreeView o) => o -> m Int32
getTreeViewSearchColumn :: o -> m Int32
getTreeViewSearchColumn obj :: o
obj = IO Int32 -> m Int32
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
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "search-column"
setTreeViewSearchColumn :: (MonadIO m, IsTreeView o) => o -> Int32 -> m ()
setTreeViewSearchColumn :: o -> Int32 -> m ()
setTreeViewSearchColumn obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "search-column" Int32
val
constructTreeViewSearchColumn :: (IsTreeView o) => Int32 -> IO (GValueConstruct o)
constructTreeViewSearchColumn :: Int32 -> IO (GValueConstruct o)
constructTreeViewSearchColumn val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "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
#endif
getTreeViewShowExpanders :: (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewShowExpanders :: o -> m Bool
getTreeViewShowExpanders obj :: o
obj = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TreeViewSelectAllCallback -> m Bool)
-> TreeViewSelectAllCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> TreeViewSelectAllCallback
forall a. GObject a => a -> String -> TreeViewSelectAllCallback
B.Properties.getObjectPropertyBool o
obj "show-expanders"
setTreeViewShowExpanders :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
setTreeViewShowExpanders :: o -> Bool -> m ()
setTreeViewShowExpanders obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "show-expanders" Bool
val
constructTreeViewShowExpanders :: (IsTreeView o) => Bool -> IO (GValueConstruct o)
constructTreeViewShowExpanders :: Bool -> IO (GValueConstruct o)
constructTreeViewShowExpanders val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
#endif
getTreeViewTooltipColumn :: (MonadIO m, IsTreeView o) => o -> m Int32
getTreeViewTooltipColumn :: o -> m Int32
getTreeViewTooltipColumn obj :: o
obj = IO Int32 -> m Int32
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
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "tooltip-column"
setTreeViewTooltipColumn :: (MonadIO m, IsTreeView o) => o -> Int32 -> m ()
setTreeViewTooltipColumn :: o -> Int32 -> m ()
setTreeViewTooltipColumn obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "tooltip-column" Int32
val
constructTreeViewTooltipColumn :: (IsTreeView o) => Int32 -> IO (GValueConstruct o)
constructTreeViewTooltipColumn :: Int32 -> IO (GValueConstruct o)
constructTreeViewTooltipColumn val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "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
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList TreeView
type instance O.AttributeList TreeView = TreeViewAttributeList
type TreeViewAttributeList = ('[ '("activateOnSingleClick", TreeViewActivateOnSingleClickPropertyInfo), '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("borderWidth", Gtk.Container.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("child", Gtk.Container.ContainerChildPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("enableGridLines", TreeViewEnableGridLinesPropertyInfo), '("enableSearch", TreeViewEnableSearchPropertyInfo), '("enableTreeLines", TreeViewEnableTreeLinesPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("expanderColumn", TreeViewExpanderColumnPropertyInfo), '("fixedHeightMode", TreeViewFixedHeightModePropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("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), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("levelIndentation", TreeViewLevelIndentationPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("model", TreeViewModelPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("reorderable", TreeViewReorderablePropertyInfo), '("resizeMode", Gtk.Container.ContainerResizeModePropertyInfo), '("rubberBanding", TreeViewRubberBandingPropertyInfo), '("rulesHint", TreeViewRulesHintPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("searchColumn", TreeViewSearchColumnPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("showExpanders", TreeViewShowExpandersPropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("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), '("window", Gtk.Widget.WidgetWindowPropertyInfo)] :: [(Symbol, *)])
#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
treeViewRulesHint :: AttrLabelProxy "rulesHint"
treeViewRulesHint = 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 = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("checkResize", Gtk.Container.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("columnsChanged", TreeViewColumnsChangedSignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("cursorChanged", TreeViewCursorChangedSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("expandCollapseCursorRow", TreeViewExpandCollapseCursorRowSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveCursor", TreeViewMoveCursorSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("rowActivated", TreeViewRowActivatedSignalInfo), '("rowCollapsed", TreeViewRowCollapsedSignalInfo), '("rowExpanded", TreeViewRowExpandedSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectAll", TreeViewSelectAllSignalInfo), '("selectCursorParent", TreeViewSelectCursorParentSignalInfo), '("selectCursorRow", TreeViewSelectCursorRowSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("setFocusChild", Gtk.Container.ContainerSetFocusChildSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("startInteractiveSearch", TreeViewStartInteractiveSearchSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("testCollapseRow", TreeViewTestCollapseRowSignalInfo), '("testExpandRow", TreeViewTestExpandRowSignalInfo), '("toggleCursorRow", TreeViewToggleCursorRowSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("unselectAll", TreeViewUnselectAllSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_tree_view_new" gtk_tree_view_new ::
IO (Ptr TreeView)
treeViewNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m TreeView
treeViewNew :: m TreeView
treeViewNew = IO TreeView -> m TreeView
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
Ptr TreeView
result <- IO (Ptr TreeView)
gtk_tree_view_new
Text -> Ptr TreeView -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "treeViewNew" Ptr TreeView
result
TreeView
result' <- ((ManagedPtr TreeView -> TreeView) -> Ptr TreeView -> IO TreeView
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TreeView -> TreeView
TreeView) Ptr TreeView
result
TreeView -> IO TreeView
forall (m :: * -> *) a. Monad m => a -> m a
return TreeView
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)
treeViewNewWithModel ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.TreeModel.IsTreeModel a) =>
a
-> m TreeView
treeViewNewWithModel :: a -> m TreeView
treeViewNewWithModel model :: a
model = IO TreeView -> m TreeView
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
Ptr TreeModel
model' <- a -> IO (Ptr TreeModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
model
Ptr TreeView
result <- Ptr TreeModel -> IO (Ptr TreeView)
gtk_tree_view_new_with_model Ptr TreeModel
model'
Text -> Ptr TreeView -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "treeViewNewWithModel" Ptr TreeView
result
TreeView
result' <- ((ManagedPtr TreeView -> TreeView) -> Ptr TreeView -> IO TreeView
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TreeView -> TreeView
TreeView) Ptr TreeView
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
model
TreeView -> IO TreeView
forall (m :: * -> *) a. Monad m => a -> m a
return TreeView
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
treeViewAppendColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) =>
a
-> b
-> m Int32
treeViewAppendColumn :: a -> b -> m Int32
treeViewAppendColumn treeView :: a
treeView column :: b
column = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreeViewColumn
column' <- b -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
column
Int32
result <- Ptr TreeView -> Ptr TreeViewColumn -> IO Int32
gtk_tree_view_append_column Ptr TreeView
treeView' Ptr TreeViewColumn
column'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
column
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TreeViewAppendColumnMethodInfo
instance (signature ~ (b -> m Int32), MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) => O.MethodInfo TreeViewAppendColumnMethodInfo a signature where
overloadedMethod = treeViewAppendColumn
#endif
foreign import ccall "gtk_tree_view_collapse_all" gtk_tree_view_collapse_all ::
Ptr TreeView ->
IO ()
treeViewCollapseAll ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m ()
treeViewCollapseAll :: a -> m ()
treeViewCollapseAll treeView :: a
treeView = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreeView -> IO ()
gtk_tree_view_collapse_all Ptr TreeView
treeView'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewCollapseAllMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewCollapseAllMethodInfo a signature where
overloadedMethod = treeViewCollapseAll
#endif
foreign import ccall "gtk_tree_view_collapse_row" gtk_tree_view_collapse_row ::
Ptr TreeView ->
Ptr Gtk.TreePath.TreePath ->
IO CInt
treeViewCollapseRow ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Gtk.TreePath.TreePath
-> m Bool
treeViewCollapseRow :: a -> TreePath -> m Bool
treeViewCollapseRow treeView :: a
treeView path :: TreePath
path = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TreeViewSelectAllCallback -> m Bool)
-> TreeViewSelectAllCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreePath
path' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
path
CInt
result <- Ptr TreeView -> Ptr TreePath -> IO CInt
gtk_tree_view_collapse_row Ptr TreeView
treeView' Ptr TreePath
path'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
TreePath -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreePath
path
TreeViewSelectCursorRowCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewCollapseRowMethodInfo
instance (signature ~ (Gtk.TreePath.TreePath -> m Bool), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewCollapseRowMethodInfo a signature where
overloadedMethod = treeViewCollapseRow
#endif
foreign import ccall "gtk_tree_view_columns_autosize" gtk_tree_view_columns_autosize ::
Ptr TreeView ->
IO ()
treeViewColumnsAutosize ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m ()
treeViewColumnsAutosize :: a -> m ()
treeViewColumnsAutosize treeView :: a
treeView = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreeView -> IO ()
gtk_tree_view_columns_autosize Ptr TreeView
treeView'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnsAutosizeMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewColumnsAutosizeMethodInfo a signature where
overloadedMethod = 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 ()
treeViewConvertBinWindowToTreeCoords ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m ((Int32, Int32))
treeViewConvertBinWindowToTreeCoords :: a -> Int32 -> Int32 -> m (Int32, Int32)
treeViewConvertBinWindowToTreeCoords treeView :: a
treeView bx :: Int32
bx by :: Int32
by = IO (Int32, Int32) -> m (Int32, Int32)
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
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr Int32
tx <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
ty <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr TreeView -> Int32 -> Int32 -> Ptr Int32 -> Ptr Int32 -> IO ()
gtk_tree_view_convert_bin_window_to_tree_coords Ptr TreeView
treeView' Int32
bx Int32
by Ptr Int32
tx Ptr Int32
ty
Int32
tx' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
tx
Int32
ty' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
ty
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
tx
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
ty
(Int32, Int32) -> IO (Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
tx', Int32
ty')
#if defined(ENABLE_OVERLOADING)
data TreeViewConvertBinWindowToTreeCoordsMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ((Int32, Int32))), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewConvertBinWindowToTreeCoordsMethodInfo a signature where
overloadedMethod = 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 ()
treeViewConvertBinWindowToWidgetCoords ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m ((Int32, Int32))
treeViewConvertBinWindowToWidgetCoords :: a -> Int32 -> Int32 -> m (Int32, Int32)
treeViewConvertBinWindowToWidgetCoords treeView :: a
treeView bx :: Int32
bx by :: Int32
by = IO (Int32, Int32) -> m (Int32, Int32)
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
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr Int32
wx <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
wy <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr TreeView -> Int32 -> Int32 -> Ptr Int32 -> Ptr Int32 -> IO ()
gtk_tree_view_convert_bin_window_to_widget_coords Ptr TreeView
treeView' Int32
bx Int32
by Ptr Int32
wx Ptr Int32
wy
Int32
wx' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
wx
Int32
wy' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
wy
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
wx
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
wy
(Int32, Int32) -> IO (Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
wx', Int32
wy')
#if defined(ENABLE_OVERLOADING)
data TreeViewConvertBinWindowToWidgetCoordsMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ((Int32, Int32))), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewConvertBinWindowToWidgetCoordsMethodInfo a signature where
overloadedMethod = 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 ()
treeViewConvertTreeToBinWindowCoords ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m ((Int32, Int32))
treeViewConvertTreeToBinWindowCoords :: a -> Int32 -> Int32 -> m (Int32, Int32)
treeViewConvertTreeToBinWindowCoords treeView :: a
treeView tx :: Int32
tx ty :: Int32
ty = IO (Int32, Int32) -> m (Int32, Int32)
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
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr Int32
bx <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
by <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr TreeView -> Int32 -> Int32 -> Ptr Int32 -> Ptr Int32 -> IO ()
gtk_tree_view_convert_tree_to_bin_window_coords Ptr TreeView
treeView' Int32
tx Int32
ty Ptr Int32
bx Ptr Int32
by
Int32
bx' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
bx
Int32
by' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
by
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
bx
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
by
(Int32, Int32) -> IO (Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
bx', Int32
by')
#if defined(ENABLE_OVERLOADING)
data TreeViewConvertTreeToBinWindowCoordsMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ((Int32, Int32))), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewConvertTreeToBinWindowCoordsMethodInfo a signature where
overloadedMethod = 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 ()
treeViewConvertTreeToWidgetCoords ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m ((Int32, Int32))
treeViewConvertTreeToWidgetCoords :: a -> Int32 -> Int32 -> m (Int32, Int32)
treeViewConvertTreeToWidgetCoords treeView :: a
treeView tx :: Int32
tx ty :: Int32
ty = IO (Int32, Int32) -> m (Int32, Int32)
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
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr Int32
wx <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
wy <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr TreeView -> Int32 -> Int32 -> Ptr Int32 -> Ptr Int32 -> IO ()
gtk_tree_view_convert_tree_to_widget_coords Ptr TreeView
treeView' Int32
tx Int32
ty Ptr Int32
wx Ptr Int32
wy
Int32
wx' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
wx
Int32
wy' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
wy
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
wx
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
wy
(Int32, Int32) -> IO (Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
wx', Int32
wy')
#if defined(ENABLE_OVERLOADING)
data TreeViewConvertTreeToWidgetCoordsMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ((Int32, Int32))), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewConvertTreeToWidgetCoordsMethodInfo a signature where
overloadedMethod = 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 ()
treeViewConvertWidgetToBinWindowCoords ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m ((Int32, Int32))
treeViewConvertWidgetToBinWindowCoords :: a -> Int32 -> Int32 -> m (Int32, Int32)
treeViewConvertWidgetToBinWindowCoords treeView :: a
treeView wx :: Int32
wx wy :: Int32
wy = IO (Int32, Int32) -> m (Int32, Int32)
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
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr Int32
bx <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
by <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr TreeView -> Int32 -> Int32 -> Ptr Int32 -> Ptr Int32 -> IO ()
gtk_tree_view_convert_widget_to_bin_window_coords Ptr TreeView
treeView' Int32
wx Int32
wy Ptr Int32
bx Ptr Int32
by
Int32
bx' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
bx
Int32
by' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
by
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
bx
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
by
(Int32, Int32) -> IO (Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
bx', Int32
by')
#if defined(ENABLE_OVERLOADING)
data TreeViewConvertWidgetToBinWindowCoordsMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ((Int32, Int32))), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewConvertWidgetToBinWindowCoordsMethodInfo a signature where
overloadedMethod = 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 ()
treeViewConvertWidgetToTreeCoords ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m ((Int32, Int32))
treeViewConvertWidgetToTreeCoords :: a -> Int32 -> Int32 -> m (Int32, Int32)
treeViewConvertWidgetToTreeCoords treeView :: a
treeView wx :: Int32
wx wy :: Int32
wy = IO (Int32, Int32) -> m (Int32, Int32)
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
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr Int32
tx <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
ty <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr TreeView -> Int32 -> Int32 -> Ptr Int32 -> Ptr Int32 -> IO ()
gtk_tree_view_convert_widget_to_tree_coords Ptr TreeView
treeView' Int32
wx Int32
wy Ptr Int32
tx Ptr Int32
ty
Int32
tx' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
tx
Int32
ty' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
ty
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
tx
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
ty
(Int32, Int32) -> IO (Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
tx', Int32
ty')
#if defined(ENABLE_OVERLOADING)
data TreeViewConvertWidgetToTreeCoordsMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ((Int32, Int32))), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewConvertWidgetToTreeCoordsMethodInfo a signature where
overloadedMethod = 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 Cairo.Surface.Surface)
treeViewCreateRowDragIcon ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Gtk.TreePath.TreePath
-> m Cairo.Surface.Surface
treeViewCreateRowDragIcon :: a -> TreePath -> m Surface
treeViewCreateRowDragIcon treeView :: a
treeView path :: TreePath
path = IO Surface -> m Surface
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Surface -> m Surface) -> IO Surface -> m Surface
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreePath
path' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
path
Ptr Surface
result <- Ptr TreeView -> Ptr TreePath -> IO (Ptr Surface)
gtk_tree_view_create_row_drag_icon Ptr TreeView
treeView' Ptr TreePath
path'
Text -> Ptr Surface -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "treeViewCreateRowDragIcon" Ptr Surface
result
Surface
result' <- ((ManagedPtr Surface -> Surface) -> Ptr Surface -> IO Surface
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Surface -> Surface
Cairo.Surface.Surface) Ptr Surface
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
TreePath -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreePath
path
Surface -> IO Surface
forall (m :: * -> *) a. Monad m => a -> m a
return Surface
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewCreateRowDragIconMethodInfo
instance (signature ~ (Gtk.TreePath.TreePath -> m Cairo.Surface.Surface), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewCreateRowDragIconMethodInfo a signature where
overloadedMethod = treeViewCreateRowDragIcon
#endif
foreign import ccall "gtk_tree_view_enable_model_drag_dest" gtk_tree_view_enable_model_drag_dest ::
Ptr TreeView ->
Ptr Gtk.TargetEntry.TargetEntry ->
Int32 ->
CUInt ->
IO ()
treeViewEnableModelDragDest ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> [Gtk.TargetEntry.TargetEntry]
-> [Gdk.Flags.DragAction]
-> m ()
treeViewEnableModelDragDest :: a -> [TargetEntry] -> [DragAction] -> m ()
treeViewEnableModelDragDest treeView :: a
treeView targets :: [TargetEntry]
targets actions :: [DragAction]
actions = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
let nTargets :: Int32
nTargets = Int -> Int32
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> Int32) -> Int -> Int32
forall a b. (a -> b) -> a -> b
$ [TargetEntry] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [TargetEntry]
targets
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
[Ptr TargetEntry]
targets' <- (TargetEntry -> IO (Ptr TargetEntry))
-> [TargetEntry] -> IO [Ptr TargetEntry]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM TargetEntry -> IO (Ptr TargetEntry)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr [TargetEntry]
targets
Ptr TargetEntry
targets'' <- Int -> [Ptr TargetEntry] -> IO (Ptr TargetEntry)
forall a. Int -> [Ptr a] -> IO (Ptr a)
packBlockArray 16 [Ptr TargetEntry]
targets'
let actions' :: CUInt
actions' = [DragAction] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [DragAction]
actions
Ptr TreeView -> Ptr TargetEntry -> Int32 -> CUInt -> IO ()
gtk_tree_view_enable_model_drag_dest Ptr TreeView
treeView' Ptr TargetEntry
targets'' Int32
nTargets CUInt
actions'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
(TargetEntry -> IO ()) -> [TargetEntry] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ TargetEntry -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [TargetEntry]
targets
Ptr TargetEntry -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr TargetEntry
targets''
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewEnableModelDragDestMethodInfo
instance (signature ~ ([Gtk.TargetEntry.TargetEntry] -> [Gdk.Flags.DragAction] -> m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewEnableModelDragDestMethodInfo a signature where
overloadedMethod = treeViewEnableModelDragDest
#endif
foreign import ccall "gtk_tree_view_enable_model_drag_source" gtk_tree_view_enable_model_drag_source ::
Ptr TreeView ->
CUInt ->
Ptr Gtk.TargetEntry.TargetEntry ->
Int32 ->
CUInt ->
IO ()
treeViewEnableModelDragSource ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> [Gdk.Flags.ModifierType]
-> [Gtk.TargetEntry.TargetEntry]
-> [Gdk.Flags.DragAction]
-> m ()
treeViewEnableModelDragSource :: a -> [ModifierType] -> [TargetEntry] -> [DragAction] -> m ()
treeViewEnableModelDragSource treeView :: a
treeView startButtonMask :: [ModifierType]
startButtonMask targets :: [TargetEntry]
targets actions :: [DragAction]
actions = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
let nTargets :: Int32
nTargets = Int -> Int32
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> Int32) -> Int -> Int32
forall a b. (a -> b) -> a -> b
$ [TargetEntry] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [TargetEntry]
targets
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
let startButtonMask' :: CUInt
startButtonMask' = [ModifierType] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [ModifierType]
startButtonMask
[Ptr TargetEntry]
targets' <- (TargetEntry -> IO (Ptr TargetEntry))
-> [TargetEntry] -> IO [Ptr TargetEntry]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM TargetEntry -> IO (Ptr TargetEntry)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr [TargetEntry]
targets
Ptr TargetEntry
targets'' <- Int -> [Ptr TargetEntry] -> IO (Ptr TargetEntry)
forall a. Int -> [Ptr a] -> IO (Ptr a)
packBlockArray 16 [Ptr TargetEntry]
targets'
let actions' :: CUInt
actions' = [DragAction] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [DragAction]
actions
Ptr TreeView -> CUInt -> Ptr TargetEntry -> Int32 -> CUInt -> IO ()
gtk_tree_view_enable_model_drag_source Ptr TreeView
treeView' CUInt
startButtonMask' Ptr TargetEntry
targets'' Int32
nTargets CUInt
actions'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
(TargetEntry -> IO ()) -> [TargetEntry] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ TargetEntry -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [TargetEntry]
targets
Ptr TargetEntry -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr TargetEntry
targets''
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewEnableModelDragSourceMethodInfo
instance (signature ~ ([Gdk.Flags.ModifierType] -> [Gtk.TargetEntry.TargetEntry] -> [Gdk.Flags.DragAction] -> m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewEnableModelDragSourceMethodInfo a signature where
overloadedMethod = treeViewEnableModelDragSource
#endif
foreign import ccall "gtk_tree_view_expand_all" gtk_tree_view_expand_all ::
Ptr TreeView ->
IO ()
treeViewExpandAll ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m ()
treeViewExpandAll :: a -> m ()
treeViewExpandAll treeView :: a
treeView = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreeView -> IO ()
gtk_tree_view_expand_all Ptr TreeView
treeView'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewExpandAllMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewExpandAllMethodInfo a signature where
overloadedMethod = treeViewExpandAll
#endif
foreign import ccall "gtk_tree_view_expand_row" gtk_tree_view_expand_row ::
Ptr TreeView ->
Ptr Gtk.TreePath.TreePath ->
CInt ->
IO CInt
treeViewExpandRow ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Gtk.TreePath.TreePath
-> Bool
-> m Bool
treeViewExpandRow :: a -> TreePath -> Bool -> m Bool
treeViewExpandRow treeView :: a
treeView path :: TreePath
path openAll :: Bool
openAll = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TreeViewSelectAllCallback -> m Bool)
-> TreeViewSelectAllCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreePath
path' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
path
let openAll' :: CInt
openAll' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
openAll
CInt
result <- Ptr TreeView -> Ptr TreePath -> CInt -> IO CInt
gtk_tree_view_expand_row Ptr TreeView
treeView' Ptr TreePath
path' CInt
openAll'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
TreePath -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreePath
path
TreeViewSelectCursorRowCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewExpandRowMethodInfo
instance (signature ~ (Gtk.TreePath.TreePath -> Bool -> m Bool), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewExpandRowMethodInfo a signature where
overloadedMethod = treeViewExpandRow
#endif
foreign import ccall "gtk_tree_view_expand_to_path" gtk_tree_view_expand_to_path ::
Ptr TreeView ->
Ptr Gtk.TreePath.TreePath ->
IO ()
treeViewExpandToPath ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Gtk.TreePath.TreePath
-> m ()
treeViewExpandToPath :: a -> TreePath -> m ()
treeViewExpandToPath treeView :: a
treeView path :: TreePath
path = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreePath
path' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
path
Ptr TreeView -> Ptr TreePath -> IO ()
gtk_tree_view_expand_to_path Ptr TreeView
treeView' Ptr TreePath
path'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
TreePath -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreePath
path
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewExpandToPathMethodInfo
instance (signature ~ (Gtk.TreePath.TreePath -> m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewExpandToPathMethodInfo a signature where
overloadedMethod = 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
treeViewGetActivateOnSingleClick ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeViewGetActivateOnSingleClick :: a -> m Bool
treeViewGetActivateOnSingleClick treeView :: a
treeView = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TreeViewSelectAllCallback -> m Bool)
-> TreeViewSelectAllCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
CInt
result <- Ptr TreeView -> IO CInt
gtk_tree_view_get_activate_on_single_click Ptr TreeView
treeView'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
TreeViewSelectCursorRowCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetActivateOnSingleClickMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewGetActivateOnSingleClickMethodInfo a signature where
overloadedMethod = 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 ()
treeViewGetBackgroundArea ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) =>
a
-> Maybe (Gtk.TreePath.TreePath)
-> Maybe (b)
-> m (Gdk.Rectangle.Rectangle)
treeViewGetBackgroundArea :: a -> Maybe TreePath -> Maybe b -> m Rectangle
treeViewGetBackgroundArea treeView :: a
treeView path :: Maybe TreePath
path column :: Maybe b
column = IO Rectangle -> m Rectangle
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
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreePath
maybePath <- case Maybe TreePath
path of
Nothing -> Ptr TreePath -> IO (Ptr TreePath)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreePath
forall a. Ptr a
nullPtr
Just jPath :: TreePath
jPath -> do
Ptr TreePath
jPath' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
jPath
Ptr TreePath -> IO (Ptr TreePath)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreePath
jPath'
Ptr TreeViewColumn
maybeColumn <- case Maybe b
column of
Nothing -> Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
forall a. Ptr a
nullPtr
Just jColumn :: b
jColumn -> do
Ptr TreeViewColumn
jColumn' <- b -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jColumn
Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
jColumn'
Ptr Rectangle
rect <- Int -> IO (Ptr Rectangle)
forall a. BoxedObject a => Int -> IO (Ptr a)
callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle.Rectangle)
Ptr TreeView
-> Ptr TreePath -> Ptr TreeViewColumn -> Ptr Rectangle -> IO ()
gtk_tree_view_get_background_area Ptr TreeView
treeView' Ptr TreePath
maybePath Ptr TreeViewColumn
maybeColumn Ptr Rectangle
rect
Rectangle
rect' <- ((ManagedPtr Rectangle -> Rectangle)
-> Ptr Rectangle -> IO Rectangle
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle) Ptr Rectangle
rect
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Maybe TreePath -> (TreePath -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe TreePath
path TreePath -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
column b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Rectangle -> IO Rectangle
forall (m :: * -> *) a. Monad m => a -> m a
return Rectangle
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.MethodInfo TreeViewGetBackgroundAreaMethodInfo a signature where
overloadedMethod = treeViewGetBackgroundArea
#endif
foreign import ccall "gtk_tree_view_get_bin_window" gtk_tree_view_get_bin_window ::
Ptr TreeView ->
IO (Ptr Gdk.Window.Window)
treeViewGetBinWindow ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m (Maybe Gdk.Window.Window)
treeViewGetBinWindow :: a -> m (Maybe Window)
treeViewGetBinWindow treeView :: a
treeView = IO (Maybe Window) -> m (Maybe Window)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Window) -> m (Maybe Window))
-> IO (Maybe Window) -> m (Maybe Window)
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr Window
result <- Ptr TreeView -> IO (Ptr Window)
gtk_tree_view_get_bin_window Ptr TreeView
treeView'
Maybe Window
maybeResult <- Ptr Window -> (Ptr Window -> IO Window) -> IO (Maybe Window)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Window
result ((Ptr Window -> IO Window) -> IO (Maybe Window))
-> (Ptr Window -> IO Window) -> IO (Maybe Window)
forall a b. (a -> b) -> a -> b
$ \result' :: Ptr Window
result' -> do
Window
result'' <- ((ManagedPtr Window -> Window) -> Ptr Window -> IO Window
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Window -> Window
Gdk.Window.Window) Ptr Window
result'
Window -> IO Window
forall (m :: * -> *) a. Monad m => a -> m a
return Window
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Maybe Window -> IO (Maybe Window)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Window
maybeResult
#if defined(ENABLE_OVERLOADING)
data TreeViewGetBinWindowMethodInfo
instance (signature ~ (m (Maybe Gdk.Window.Window)), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewGetBinWindowMethodInfo a signature where
overloadedMethod = treeViewGetBinWindow
#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 ()
treeViewGetCellArea ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) =>
a
-> Maybe (Gtk.TreePath.TreePath)
-> Maybe (b)
-> m (Gdk.Rectangle.Rectangle)
treeViewGetCellArea :: a -> Maybe TreePath -> Maybe b -> m Rectangle
treeViewGetCellArea treeView :: a
treeView path :: Maybe TreePath
path column :: Maybe b
column = IO Rectangle -> m Rectangle
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
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreePath
maybePath <- case Maybe TreePath
path of
Nothing -> Ptr TreePath -> IO (Ptr TreePath)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreePath
forall a. Ptr a
nullPtr
Just jPath :: TreePath
jPath -> do
Ptr TreePath
jPath' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
jPath
Ptr TreePath -> IO (Ptr TreePath)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreePath
jPath'
Ptr TreeViewColumn
maybeColumn <- case Maybe b
column of
Nothing -> Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
forall a. Ptr a
nullPtr
Just jColumn :: b
jColumn -> do
Ptr TreeViewColumn
jColumn' <- b -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jColumn
Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
jColumn'
Ptr Rectangle
rect <- Int -> IO (Ptr Rectangle)
forall a. BoxedObject a => Int -> IO (Ptr a)
callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle.Rectangle)
Ptr TreeView
-> Ptr TreePath -> Ptr TreeViewColumn -> Ptr Rectangle -> IO ()
gtk_tree_view_get_cell_area Ptr TreeView
treeView' Ptr TreePath
maybePath Ptr TreeViewColumn
maybeColumn Ptr Rectangle
rect
Rectangle
rect' <- ((ManagedPtr Rectangle -> Rectangle)
-> Ptr Rectangle -> IO Rectangle
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle) Ptr Rectangle
rect
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Maybe TreePath -> (TreePath -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe TreePath
path TreePath -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
column b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Rectangle -> IO Rectangle
forall (m :: * -> *) a. Monad m => a -> m a
return Rectangle
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.MethodInfo TreeViewGetCellAreaMethodInfo a signature where
overloadedMethod = treeViewGetCellArea
#endif
foreign import ccall "gtk_tree_view_get_column" gtk_tree_view_get_column ::
Ptr TreeView ->
Int32 ->
IO (Ptr Gtk.TreeViewColumn.TreeViewColumn)
treeViewGetColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> m (Maybe Gtk.TreeViewColumn.TreeViewColumn)
treeViewGetColumn :: a -> Int32 -> m (Maybe TreeViewColumn)
treeViewGetColumn treeView :: a
treeView n :: Int32
n = IO (Maybe TreeViewColumn) -> m (Maybe TreeViewColumn)
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
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreeViewColumn
result <- Ptr TreeView -> Int32 -> IO (Ptr TreeViewColumn)
gtk_tree_view_get_column Ptr TreeView
treeView' Int32
n
Maybe TreeViewColumn
maybeResult <- Ptr TreeViewColumn
-> (Ptr TreeViewColumn -> IO TreeViewColumn)
-> IO (Maybe TreeViewColumn)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr TreeViewColumn
result ((Ptr TreeViewColumn -> IO TreeViewColumn)
-> IO (Maybe TreeViewColumn))
-> (Ptr TreeViewColumn -> IO TreeViewColumn)
-> IO (Maybe TreeViewColumn)
forall a b. (a -> b) -> a -> b
$ \result' :: Ptr TreeViewColumn
result' -> do
TreeViewColumn
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'
TreeViewColumn -> IO TreeViewColumn
forall (m :: * -> *) a. Monad m => a -> m a
return TreeViewColumn
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Maybe TreeViewColumn -> IO (Maybe TreeViewColumn)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TreeViewColumn
maybeResult
#if defined(ENABLE_OVERLOADING)
data TreeViewGetColumnMethodInfo
instance (signature ~ (Int32 -> m (Maybe Gtk.TreeViewColumn.TreeViewColumn)), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewGetColumnMethodInfo a signature where
overloadedMethod = treeViewGetColumn
#endif
foreign import ccall "gtk_tree_view_get_columns" gtk_tree_view_get_columns ::
Ptr TreeView ->
IO (Ptr (GList (Ptr Gtk.TreeViewColumn.TreeViewColumn)))
treeViewGetColumns ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m [Gtk.TreeViewColumn.TreeViewColumn]
treeViewGetColumns :: a -> m [TreeViewColumn]
treeViewGetColumns treeView :: a
treeView = IO [TreeViewColumn] -> m [TreeViewColumn]
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
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr (GList (Ptr TreeViewColumn))
result <- Ptr TreeView -> IO (Ptr (GList (Ptr TreeViewColumn)))
gtk_tree_view_get_columns Ptr TreeView
treeView'
[Ptr TreeViewColumn]
result' <- Ptr (GList (Ptr TreeViewColumn)) -> IO [Ptr TreeViewColumn]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr TreeViewColumn))
result
[TreeViewColumn]
result'' <- (Ptr TreeViewColumn -> IO TreeViewColumn)
-> [Ptr TreeViewColumn] -> IO [TreeViewColumn]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((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'
Ptr (GList (Ptr TreeViewColumn)) -> IO ()
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList (Ptr TreeViewColumn))
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
[TreeViewColumn] -> IO [TreeViewColumn]
forall (m :: * -> *) a. Monad m => a -> m a
return [TreeViewColumn]
result''
#if defined(ENABLE_OVERLOADING)
data TreeViewGetColumnsMethodInfo
instance (signature ~ (m [Gtk.TreeViewColumn.TreeViewColumn]), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewGetColumnsMethodInfo a signature where
overloadedMethod = 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 ()
treeViewGetCursor ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m ((Maybe Gtk.TreePath.TreePath, Maybe Gtk.TreeViewColumn.TreeViewColumn))
treeViewGetCursor :: a -> m (Maybe TreePath, Maybe TreeViewColumn)
treeViewGetCursor treeView :: a
treeView = IO (Maybe TreePath, Maybe TreeViewColumn)
-> m (Maybe TreePath, Maybe TreeViewColumn)
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
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr (Ptr TreePath)
path <- IO (Ptr (Ptr TreePath))
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
Ptr (Ptr TreeViewColumn)
focusColumn <- IO (Ptr (Ptr TreeViewColumn))
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr (Ptr Gtk.TreeViewColumn.TreeViewColumn))
Ptr TreeView
-> Ptr (Ptr TreePath) -> Ptr (Ptr TreeViewColumn) -> IO ()
gtk_tree_view_get_cursor Ptr TreeView
treeView' Ptr (Ptr TreePath)
path Ptr (Ptr TreeViewColumn)
focusColumn
Ptr TreePath
path' <- Ptr (Ptr TreePath) -> IO (Ptr TreePath)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr TreePath)
path
Maybe TreePath
maybePath' <- Ptr TreePath
-> (Ptr TreePath -> IO TreePath) -> IO (Maybe TreePath)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr TreePath
path' ((Ptr TreePath -> IO TreePath) -> IO (Maybe TreePath))
-> (Ptr TreePath -> IO TreePath) -> IO (Maybe TreePath)
forall a b. (a -> b) -> a -> b
$ \path'' :: Ptr TreePath
path'' -> do
TreePath
path''' <- ((ManagedPtr TreePath -> TreePath) -> Ptr TreePath -> IO TreePath
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath) Ptr TreePath
path''
TreePath -> IO TreePath
forall (m :: * -> *) a. Monad m => a -> m a
return TreePath
path'''
Ptr TreeViewColumn
focusColumn' <- Ptr (Ptr TreeViewColumn) -> IO (Ptr TreeViewColumn)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr TreeViewColumn)
focusColumn
Maybe TreeViewColumn
maybeFocusColumn' <- Ptr TreeViewColumn
-> (Ptr TreeViewColumn -> IO TreeViewColumn)
-> IO (Maybe TreeViewColumn)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr TreeViewColumn
focusColumn' ((Ptr TreeViewColumn -> IO TreeViewColumn)
-> IO (Maybe TreeViewColumn))
-> (Ptr TreeViewColumn -> IO TreeViewColumn)
-> IO (Maybe TreeViewColumn)
forall a b. (a -> b) -> a -> b
$ \focusColumn'' :: Ptr TreeViewColumn
focusColumn'' -> do
TreeViewColumn
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''
TreeViewColumn -> IO TreeViewColumn
forall (m :: * -> *) a. Monad m => a -> m a
return TreeViewColumn
focusColumn'''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Ptr (Ptr TreePath) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr TreePath)
path
Ptr (Ptr TreeViewColumn) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr TreeViewColumn)
focusColumn
(Maybe TreePath, Maybe TreeViewColumn)
-> IO (Maybe TreePath, Maybe TreeViewColumn)
forall (m :: * -> *) a. Monad m => a -> m a
return (Maybe TreePath
maybePath', Maybe TreeViewColumn
maybeFocusColumn')
#if defined(ENABLE_OVERLOADING)
data TreeViewGetCursorMethodInfo
instance (signature ~ (m ((Maybe Gtk.TreePath.TreePath, Maybe Gtk.TreeViewColumn.TreeViewColumn))), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewGetCursorMethodInfo a signature where
overloadedMethod = 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
treeViewGetDestRowAtPos ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m ((Bool, Maybe Gtk.TreePath.TreePath, Gtk.Enums.TreeViewDropPosition))
treeViewGetDestRowAtPos :: a
-> Int32 -> Int32 -> m (Bool, Maybe TreePath, TreeViewDropPosition)
treeViewGetDestRowAtPos treeView :: a
treeView dragX :: Int32
dragX dragY :: Int32
dragY = IO (Bool, Maybe TreePath, TreeViewDropPosition)
-> m (Bool, Maybe TreePath, TreeViewDropPosition)
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
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr (Ptr TreePath)
path <- IO (Ptr (Ptr TreePath))
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
Ptr CUInt
pos <- IO (Ptr CUInt)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CUInt)
CInt
result <- Ptr TreeView
-> Int32 -> Int32 -> Ptr (Ptr TreePath) -> Ptr CUInt -> IO CInt
gtk_tree_view_get_dest_row_at_pos Ptr TreeView
treeView' Int32
dragX Int32
dragY Ptr (Ptr TreePath)
path Ptr CUInt
pos
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Ptr TreePath
path' <- Ptr (Ptr TreePath) -> IO (Ptr TreePath)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr TreePath)
path
Maybe TreePath
maybePath' <- Ptr TreePath
-> (Ptr TreePath -> IO TreePath) -> IO (Maybe TreePath)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr TreePath
path' ((Ptr TreePath -> IO TreePath) -> IO (Maybe TreePath))
-> (Ptr TreePath -> IO TreePath) -> IO (Maybe TreePath)
forall a b. (a -> b) -> a -> b
$ \path'' :: Ptr TreePath
path'' -> do
TreePath
path''' <- ((ManagedPtr TreePath -> TreePath) -> Ptr TreePath -> IO TreePath
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath) Ptr TreePath
path''
TreePath -> IO TreePath
forall (m :: * -> *) a. Monad m => a -> m a
return TreePath
path'''
CUInt
pos' <- Ptr CUInt -> IO CUInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CUInt
pos
let pos'' :: TreeViewDropPosition
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'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Ptr (Ptr TreePath) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr TreePath)
path
Ptr CUInt -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CUInt
pos
(Bool, Maybe TreePath, TreeViewDropPosition)
-> IO (Bool, Maybe TreePath, TreeViewDropPosition)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Maybe TreePath
maybePath', TreeViewDropPosition
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.MethodInfo TreeViewGetDestRowAtPosMethodInfo a signature where
overloadedMethod = 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 ()
treeViewGetDragDestRow ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m ((Maybe Gtk.TreePath.TreePath, Gtk.Enums.TreeViewDropPosition))
treeViewGetDragDestRow :: a -> m (Maybe TreePath, TreeViewDropPosition)
treeViewGetDragDestRow treeView :: a
treeView = IO (Maybe TreePath, TreeViewDropPosition)
-> m (Maybe TreePath, TreeViewDropPosition)
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
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr (Ptr TreePath)
path <- IO (Ptr (Ptr TreePath))
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
Ptr CUInt
pos <- IO (Ptr CUInt)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CUInt)
Ptr TreeView -> Ptr (Ptr TreePath) -> Ptr CUInt -> IO ()
gtk_tree_view_get_drag_dest_row Ptr TreeView
treeView' Ptr (Ptr TreePath)
path Ptr CUInt
pos
Ptr TreePath
path' <- Ptr (Ptr TreePath) -> IO (Ptr TreePath)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr TreePath)
path
Maybe TreePath
maybePath' <- Ptr TreePath
-> (Ptr TreePath -> IO TreePath) -> IO (Maybe TreePath)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr TreePath
path' ((Ptr TreePath -> IO TreePath) -> IO (Maybe TreePath))
-> (Ptr TreePath -> IO TreePath) -> IO (Maybe TreePath)
forall a b. (a -> b) -> a -> b
$ \path'' :: Ptr TreePath
path'' -> do
TreePath
path''' <- ((ManagedPtr TreePath -> TreePath) -> Ptr TreePath -> IO TreePath
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath) Ptr TreePath
path''
TreePath -> IO TreePath
forall (m :: * -> *) a. Monad m => a -> m a
return TreePath
path'''
CUInt
pos' <- Ptr CUInt -> IO CUInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CUInt
pos
let pos'' :: TreeViewDropPosition
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'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Ptr (Ptr TreePath) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr TreePath)
path
Ptr CUInt -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CUInt
pos
(Maybe TreePath, TreeViewDropPosition)
-> IO (Maybe TreePath, TreeViewDropPosition)
forall (m :: * -> *) a. Monad m => a -> m a
return (Maybe TreePath
maybePath', TreeViewDropPosition
pos'')
#if defined(ENABLE_OVERLOADING)
data TreeViewGetDragDestRowMethodInfo
instance (signature ~ (m ((Maybe Gtk.TreePath.TreePath, Gtk.Enums.TreeViewDropPosition))), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewGetDragDestRowMethodInfo a signature where
overloadedMethod = treeViewGetDragDestRow
#endif
foreign import ccall "gtk_tree_view_get_enable_search" gtk_tree_view_get_enable_search ::
Ptr TreeView ->
IO CInt
treeViewGetEnableSearch ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeViewGetEnableSearch :: a -> m Bool
treeViewGetEnableSearch treeView :: a
treeView = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TreeViewSelectAllCallback -> m Bool)
-> TreeViewSelectAllCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
CInt
result <- Ptr TreeView -> IO CInt
gtk_tree_view_get_enable_search Ptr TreeView
treeView'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
TreeViewSelectCursorRowCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetEnableSearchMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewGetEnableSearchMethodInfo a signature where
overloadedMethod = treeViewGetEnableSearch
#endif
foreign import ccall "gtk_tree_view_get_enable_tree_lines" gtk_tree_view_get_enable_tree_lines ::
Ptr TreeView ->
IO CInt
treeViewGetEnableTreeLines ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeViewGetEnableTreeLines :: a -> m Bool
treeViewGetEnableTreeLines treeView :: a
treeView = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TreeViewSelectAllCallback -> m Bool)
-> TreeViewSelectAllCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
CInt
result <- Ptr TreeView -> IO CInt
gtk_tree_view_get_enable_tree_lines Ptr TreeView
treeView'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
TreeViewSelectCursorRowCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetEnableTreeLinesMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewGetEnableTreeLinesMethodInfo a signature where
overloadedMethod = treeViewGetEnableTreeLines
#endif
foreign import ccall "gtk_tree_view_get_expander_column" gtk_tree_view_get_expander_column ::
Ptr TreeView ->
IO (Ptr Gtk.TreeViewColumn.TreeViewColumn)
treeViewGetExpanderColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Gtk.TreeViewColumn.TreeViewColumn
treeViewGetExpanderColumn :: a -> m TreeViewColumn
treeViewGetExpanderColumn treeView :: a
treeView = IO TreeViewColumn -> m TreeViewColumn
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
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreeViewColumn
result <- Ptr TreeView -> IO (Ptr TreeViewColumn)
gtk_tree_view_get_expander_column Ptr TreeView
treeView'
Text -> Ptr TreeViewColumn -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "treeViewGetExpanderColumn" Ptr TreeViewColumn
result
TreeViewColumn
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
TreeViewColumn -> IO TreeViewColumn
forall (m :: * -> *) a. Monad m => a -> m a
return TreeViewColumn
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetExpanderColumnMethodInfo
instance (signature ~ (m Gtk.TreeViewColumn.TreeViewColumn), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewGetExpanderColumnMethodInfo a signature where
overloadedMethod = treeViewGetExpanderColumn
#endif
foreign import ccall "gtk_tree_view_get_fixed_height_mode" gtk_tree_view_get_fixed_height_mode ::
Ptr TreeView ->
IO CInt
treeViewGetFixedHeightMode ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeViewGetFixedHeightMode :: a -> m Bool
treeViewGetFixedHeightMode treeView :: a
treeView = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TreeViewSelectAllCallback -> m Bool)
-> TreeViewSelectAllCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
CInt
result <- Ptr TreeView -> IO CInt
gtk_tree_view_get_fixed_height_mode Ptr TreeView
treeView'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
TreeViewSelectCursorRowCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetFixedHeightModeMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewGetFixedHeightModeMethodInfo a signature where
overloadedMethod = treeViewGetFixedHeightMode
#endif
foreign import ccall "gtk_tree_view_get_grid_lines" gtk_tree_view_get_grid_lines ::
Ptr TreeView ->
IO CUInt
treeViewGetGridLines ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Gtk.Enums.TreeViewGridLines
treeViewGetGridLines :: a -> m TreeViewGridLines
treeViewGetGridLines treeView :: a
treeView = IO TreeViewGridLines -> m TreeViewGridLines
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
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
CUInt
result <- Ptr TreeView -> IO CUInt
gtk_tree_view_get_grid_lines Ptr TreeView
treeView'
let result' :: TreeViewGridLines
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
TreeViewGridLines -> IO TreeViewGridLines
forall (m :: * -> *) a. Monad m => a -> m a
return TreeViewGridLines
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetGridLinesMethodInfo
instance (signature ~ (m Gtk.Enums.TreeViewGridLines), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewGetGridLinesMethodInfo a signature where
overloadedMethod = treeViewGetGridLines
#endif
foreign import ccall "gtk_tree_view_get_hadjustment" gtk_tree_view_get_hadjustment ::
Ptr TreeView ->
IO (Ptr Gtk.Adjustment.Adjustment)
{-# DEPRECATED treeViewGetHadjustment ["(Since version 3.0)","Use 'GI.Gtk.Interfaces.Scrollable.scrollableGetHadjustment'"] #-}
treeViewGetHadjustment ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Gtk.Adjustment.Adjustment
treeViewGetHadjustment :: a -> m Adjustment
treeViewGetHadjustment treeView :: a
treeView = IO Adjustment -> m Adjustment
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Adjustment -> m Adjustment) -> IO Adjustment -> m Adjustment
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr Adjustment
result <- Ptr TreeView -> IO (Ptr Adjustment)
gtk_tree_view_get_hadjustment Ptr TreeView
treeView'
Text -> Ptr Adjustment -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "treeViewGetHadjustment" Ptr Adjustment
result
Adjustment
result' <- ((ManagedPtr Adjustment -> Adjustment)
-> Ptr Adjustment -> IO Adjustment
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Adjustment -> Adjustment
Gtk.Adjustment.Adjustment) Ptr Adjustment
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Adjustment -> IO Adjustment
forall (m :: * -> *) a. Monad m => a -> m a
return Adjustment
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetHadjustmentMethodInfo
instance (signature ~ (m Gtk.Adjustment.Adjustment), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewGetHadjustmentMethodInfo a signature where
overloadedMethod = treeViewGetHadjustment
#endif
foreign import ccall "gtk_tree_view_get_headers_clickable" ::
Ptr TreeView ->
IO CInt
treeViewGetHeadersClickable ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeView :: a
treeView = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TreeViewSelectAllCallback -> m Bool)
-> TreeViewSelectAllCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
CInt
result <- Ptr TreeView -> IO CInt
gtk_tree_view_get_headers_clickable Ptr TreeView
treeView'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
TreeViewSelectCursorRowCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetHeadersClickableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewGetHeadersClickableMethodInfo a signature where
overloadedMethod = treeViewGetHeadersClickable
#endif
foreign import ccall "gtk_tree_view_get_headers_visible" ::
Ptr TreeView ->
IO CInt
treeViewGetHeadersVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeView :: a
treeView = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TreeViewSelectAllCallback -> m Bool)
-> TreeViewSelectAllCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
CInt
result <- Ptr TreeView -> IO CInt
gtk_tree_view_get_headers_visible Ptr TreeView
treeView'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
TreeViewSelectCursorRowCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetHeadersVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewGetHeadersVisibleMethodInfo a signature where
overloadedMethod = treeViewGetHeadersVisible
#endif
foreign import ccall "gtk_tree_view_get_hover_expand" gtk_tree_view_get_hover_expand ::
Ptr TreeView ->
IO CInt
treeViewGetHoverExpand ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeViewGetHoverExpand :: a -> m Bool
treeViewGetHoverExpand treeView :: a
treeView = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TreeViewSelectAllCallback -> m Bool)
-> TreeViewSelectAllCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
CInt
result <- Ptr TreeView -> IO CInt
gtk_tree_view_get_hover_expand Ptr TreeView
treeView'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
TreeViewSelectCursorRowCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetHoverExpandMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewGetHoverExpandMethodInfo a signature where
overloadedMethod = treeViewGetHoverExpand
#endif
foreign import ccall "gtk_tree_view_get_hover_selection" gtk_tree_view_get_hover_selection ::
Ptr TreeView ->
IO CInt
treeViewGetHoverSelection ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeViewGetHoverSelection :: a -> m Bool
treeViewGetHoverSelection treeView :: a
treeView = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TreeViewSelectAllCallback -> m Bool)
-> TreeViewSelectAllCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
CInt
result <- Ptr TreeView -> IO CInt
gtk_tree_view_get_hover_selection Ptr TreeView
treeView'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
TreeViewSelectCursorRowCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetHoverSelectionMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewGetHoverSelectionMethodInfo a signature where
overloadedMethod = treeViewGetHoverSelection
#endif
foreign import ccall "gtk_tree_view_get_level_indentation" gtk_tree_view_get_level_indentation ::
Ptr TreeView ->
IO Int32
treeViewGetLevelIndentation ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Int32
treeViewGetLevelIndentation :: a -> m Int32
treeViewGetLevelIndentation treeView :: a
treeView = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Int32
result <- Ptr TreeView -> IO Int32
gtk_tree_view_get_level_indentation Ptr TreeView
treeView'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TreeViewGetLevelIndentationMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewGetLevelIndentationMethodInfo a signature where
overloadedMethod = treeViewGetLevelIndentation
#endif
foreign import ccall "gtk_tree_view_get_model" gtk_tree_view_get_model ::
Ptr TreeView ->
IO (Ptr Gtk.TreeModel.TreeModel)
treeViewGetModel ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m (Maybe Gtk.TreeModel.TreeModel)
treeViewGetModel :: a -> m (Maybe TreeModel)
treeViewGetModel treeView :: a
treeView = IO (Maybe TreeModel) -> m (Maybe TreeModel)
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
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreeModel
result <- Ptr TreeView -> IO (Ptr TreeModel)
gtk_tree_view_get_model Ptr TreeView
treeView'
Maybe TreeModel
maybeResult <- Ptr TreeModel
-> (Ptr TreeModel -> IO TreeModel) -> IO (Maybe TreeModel)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr TreeModel
result ((Ptr TreeModel -> IO TreeModel) -> IO (Maybe TreeModel))
-> (Ptr TreeModel -> IO TreeModel) -> IO (Maybe TreeModel)
forall a b. (a -> b) -> a -> b
$ \result' :: Ptr TreeModel
result' -> do
TreeModel
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'
TreeModel -> IO TreeModel
forall (m :: * -> *) a. Monad m => a -> m a
return TreeModel
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Maybe TreeModel -> IO (Maybe TreeModel)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TreeModel
maybeResult
#if defined(ENABLE_OVERLOADING)
data TreeViewGetModelMethodInfo
instance (signature ~ (m (Maybe Gtk.TreeModel.TreeModel)), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewGetModelMethodInfo a signature where
overloadedMethod = treeViewGetModel
#endif
foreign import ccall "gtk_tree_view_get_n_columns" gtk_tree_view_get_n_columns ::
Ptr TreeView ->
IO Word32
treeViewGetNColumns ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Word32
treeViewGetNColumns :: a -> m Word32
treeViewGetNColumns treeView :: a
treeView = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Word32
result <- Ptr TreeView -> IO Word32
gtk_tree_view_get_n_columns Ptr TreeView
treeView'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data TreeViewGetNColumnsMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewGetNColumnsMethodInfo a signature where
overloadedMethod = 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
treeViewGetPathAtPos ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m ((Bool, Maybe Gtk.TreePath.TreePath, Maybe Gtk.TreeViewColumn.TreeViewColumn, Int32, Int32))
treeViewGetPathAtPos :: a
-> Int32
-> Int32
-> m (Bool, Maybe TreePath, Maybe TreeViewColumn, Int32, Int32)
treeViewGetPathAtPos treeView :: a
treeView x :: Int32
x y :: Int32
y = IO (Bool, Maybe TreePath, Maybe TreeViewColumn, Int32, Int32)
-> m (Bool, Maybe TreePath, Maybe TreeViewColumn, Int32, Int32)
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
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr (Ptr TreePath)
path <- IO (Ptr (Ptr TreePath))
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
Ptr (Ptr TreeViewColumn)
column <- IO (Ptr (Ptr TreeViewColumn))
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr (Ptr Gtk.TreeViewColumn.TreeViewColumn))
Ptr Int32
cellX <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
cellY <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
CInt
result <- Ptr TreeView
-> Int32
-> Int32
-> Ptr (Ptr TreePath)
-> Ptr (Ptr TreeViewColumn)
-> Ptr Int32
-> Ptr Int32
-> IO CInt
gtk_tree_view_get_path_at_pos Ptr TreeView
treeView' Int32
x Int32
y Ptr (Ptr TreePath)
path Ptr (Ptr TreeViewColumn)
column Ptr Int32
cellX Ptr Int32
cellY
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Ptr TreePath
path' <- Ptr (Ptr TreePath) -> IO (Ptr TreePath)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr TreePath)
path
Maybe TreePath
maybePath' <- Ptr TreePath
-> (Ptr TreePath -> IO TreePath) -> IO (Maybe TreePath)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr TreePath
path' ((Ptr TreePath -> IO TreePath) -> IO (Maybe TreePath))
-> (Ptr TreePath -> IO TreePath) -> IO (Maybe TreePath)
forall a b. (a -> b) -> a -> b
$ \path'' :: Ptr TreePath
path'' -> do
TreePath
path''' <- ((ManagedPtr TreePath -> TreePath) -> Ptr TreePath -> IO TreePath
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath) Ptr TreePath
path''
TreePath -> IO TreePath
forall (m :: * -> *) a. Monad m => a -> m a
return TreePath
path'''
Ptr TreeViewColumn
column' <- Ptr (Ptr TreeViewColumn) -> IO (Ptr TreeViewColumn)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr TreeViewColumn)
column
Maybe TreeViewColumn
maybeColumn' <- Ptr TreeViewColumn
-> (Ptr TreeViewColumn -> IO TreeViewColumn)
-> IO (Maybe TreeViewColumn)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr TreeViewColumn
column' ((Ptr TreeViewColumn -> IO TreeViewColumn)
-> IO (Maybe TreeViewColumn))
-> (Ptr TreeViewColumn -> IO TreeViewColumn)
-> IO (Maybe TreeViewColumn)
forall a b. (a -> b) -> a -> b
$ \column'' :: Ptr TreeViewColumn
column'' -> do
TreeViewColumn
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''
TreeViewColumn -> IO TreeViewColumn
forall (m :: * -> *) a. Monad m => a -> m a
return TreeViewColumn
column'''
Int32
cellX' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
cellX
Int32
cellY' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
cellY
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Ptr (Ptr TreePath) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr TreePath)
path
Ptr (Ptr TreeViewColumn) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr TreeViewColumn)
column
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
cellX
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
cellY
(Bool, Maybe TreePath, Maybe TreeViewColumn, Int32, Int32)
-> IO (Bool, Maybe TreePath, Maybe TreeViewColumn, Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Maybe TreePath
maybePath', Maybe TreeViewColumn
maybeColumn', Int32
cellX', Int32
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.MethodInfo TreeViewGetPathAtPosMethodInfo a signature where
overloadedMethod = treeViewGetPathAtPos
#endif
foreign import ccall "gtk_tree_view_get_reorderable" gtk_tree_view_get_reorderable ::
Ptr TreeView ->
IO CInt
treeViewGetReorderable ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeViewGetReorderable :: a -> m Bool
treeViewGetReorderable treeView :: a
treeView = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TreeViewSelectAllCallback -> m Bool)
-> TreeViewSelectAllCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
CInt
result <- Ptr TreeView -> IO CInt
gtk_tree_view_get_reorderable Ptr TreeView
treeView'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
TreeViewSelectCursorRowCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetReorderableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewGetReorderableMethodInfo a signature where
overloadedMethod = treeViewGetReorderable
#endif
foreign import ccall "gtk_tree_view_get_rubber_banding" gtk_tree_view_get_rubber_banding ::
Ptr TreeView ->
IO CInt
treeViewGetRubberBanding ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeViewGetRubberBanding :: a -> m Bool
treeViewGetRubberBanding treeView :: a
treeView = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TreeViewSelectAllCallback -> m Bool)
-> TreeViewSelectAllCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
CInt
result <- Ptr TreeView -> IO CInt
gtk_tree_view_get_rubber_banding Ptr TreeView
treeView'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
TreeViewSelectCursorRowCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetRubberBandingMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewGetRubberBandingMethodInfo a signature where
overloadedMethod = treeViewGetRubberBanding
#endif
foreign import ccall "gtk_tree_view_get_rules_hint" gtk_tree_view_get_rules_hint ::
Ptr TreeView ->
IO CInt
{-# DEPRECATED treeViewGetRulesHint ["(Since version 3.14)"] #-}
treeViewGetRulesHint ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeViewGetRulesHint :: a -> m Bool
treeViewGetRulesHint treeView :: a
treeView = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TreeViewSelectAllCallback -> m Bool)
-> TreeViewSelectAllCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
CInt
result <- Ptr TreeView -> IO CInt
gtk_tree_view_get_rules_hint Ptr TreeView
treeView'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
TreeViewSelectCursorRowCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetRulesHintMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewGetRulesHintMethodInfo a signature where
overloadedMethod = treeViewGetRulesHint
#endif
foreign import ccall "gtk_tree_view_get_search_column" gtk_tree_view_get_search_column ::
Ptr TreeView ->
IO Int32
treeViewGetSearchColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Int32
treeViewGetSearchColumn :: a -> m Int32
treeViewGetSearchColumn treeView :: a
treeView = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Int32
result <- Ptr TreeView -> IO Int32
gtk_tree_view_get_search_column Ptr TreeView
treeView'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TreeViewGetSearchColumnMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewGetSearchColumnMethodInfo a signature where
overloadedMethod = treeViewGetSearchColumn
#endif
foreign import ccall "gtk_tree_view_get_search_entry" gtk_tree_view_get_search_entry ::
Ptr TreeView ->
IO (Ptr Gtk.Entry.Entry)
treeViewGetSearchEntry ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Gtk.Entry.Entry
treeViewGetSearchEntry :: a -> m Entry
treeViewGetSearchEntry treeView :: a
treeView = IO Entry -> m Entry
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Entry -> m Entry) -> IO Entry -> m Entry
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr Entry
result <- Ptr TreeView -> IO (Ptr Entry)
gtk_tree_view_get_search_entry Ptr TreeView
treeView'
Text -> Ptr Entry -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "treeViewGetSearchEntry" Ptr Entry
result
Entry
result' <- ((ManagedPtr Entry -> Entry) -> Ptr Entry -> IO Entry
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Entry -> Entry
Gtk.Entry.Entry) Ptr Entry
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Entry -> IO Entry
forall (m :: * -> *) a. Monad m => a -> m a
return Entry
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetSearchEntryMethodInfo
instance (signature ~ (m Gtk.Entry.Entry), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewGetSearchEntryMethodInfo a signature where
overloadedMethod = treeViewGetSearchEntry
#endif
foreign import ccall "gtk_tree_view_get_selection" gtk_tree_view_get_selection ::
Ptr TreeView ->
IO (Ptr Gtk.TreeSelection.TreeSelection)
treeViewGetSelection ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Gtk.TreeSelection.TreeSelection
treeViewGetSelection :: a -> m TreeSelection
treeViewGetSelection treeView :: a
treeView = IO TreeSelection -> m TreeSelection
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
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreeSelection
result <- Ptr TreeView -> IO (Ptr TreeSelection)
gtk_tree_view_get_selection Ptr TreeView
treeView'
Text -> Ptr TreeSelection -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "treeViewGetSelection" Ptr TreeSelection
result
TreeSelection
result' <- ((ManagedPtr TreeSelection -> TreeSelection)
-> Ptr TreeSelection -> IO TreeSelection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TreeSelection -> TreeSelection
Gtk.TreeSelection.TreeSelection) Ptr TreeSelection
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
TreeSelection -> IO TreeSelection
forall (m :: * -> *) a. Monad m => a -> m a
return TreeSelection
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetSelectionMethodInfo
instance (signature ~ (m Gtk.TreeSelection.TreeSelection), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewGetSelectionMethodInfo a signature where
overloadedMethod = treeViewGetSelection
#endif
foreign import ccall "gtk_tree_view_get_show_expanders" gtk_tree_view_get_show_expanders ::
Ptr TreeView ->
IO CInt
treeViewGetShowExpanders ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeViewGetShowExpanders :: a -> m Bool
treeViewGetShowExpanders treeView :: a
treeView = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TreeViewSelectAllCallback -> m Bool)
-> TreeViewSelectAllCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
CInt
result <- Ptr TreeView -> IO CInt
gtk_tree_view_get_show_expanders Ptr TreeView
treeView'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
TreeViewSelectCursorRowCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetShowExpandersMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewGetShowExpandersMethodInfo a signature where
overloadedMethod = treeViewGetShowExpanders
#endif
foreign import ccall "gtk_tree_view_get_tooltip_column" gtk_tree_view_get_tooltip_column ::
Ptr TreeView ->
IO Int32
treeViewGetTooltipColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Int32
treeViewGetTooltipColumn :: a -> m Int32
treeViewGetTooltipColumn treeView :: a
treeView = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Int32
result <- Ptr TreeView -> IO Int32
gtk_tree_view_get_tooltip_column Ptr TreeView
treeView'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TreeViewGetTooltipColumnMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewGetTooltipColumnMethodInfo a signature where
overloadedMethod = treeViewGetTooltipColumn
#endif
foreign import ccall "gtk_tree_view_get_tooltip_context" gtk_tree_view_get_tooltip_context ::
Ptr TreeView ->
Ptr Int32 ->
Ptr Int32 ->
CInt ->
Ptr (Ptr Gtk.TreeModel.TreeModel) ->
Ptr (Ptr Gtk.TreePath.TreePath) ->
Ptr Gtk.TreeIter.TreeIter ->
IO CInt
treeViewGetTooltipContext ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> Bool
-> m ((Bool, Int32, Int32, Maybe Gtk.TreeModel.TreeModel, Gtk.TreePath.TreePath, Gtk.TreeIter.TreeIter))
treeViewGetTooltipContext :: a
-> Int32
-> Int32
-> Bool
-> m (Bool, Int32, Int32, Maybe TreeModel, TreePath, TreeIter)
treeViewGetTooltipContext treeView :: a
treeView x :: Int32
x y :: Int32
y keyboardTip :: Bool
keyboardTip = IO (Bool, Int32, Int32, Maybe TreeModel, TreePath, TreeIter)
-> m (Bool, Int32, Int32, Maybe TreeModel, TreePath, TreeIter)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Int32, Int32, Maybe TreeModel, TreePath, TreeIter)
-> m (Bool, Int32, Int32, Maybe TreeModel, TreePath, TreeIter))
-> IO (Bool, Int32, Int32, Maybe TreeModel, TreePath, TreeIter)
-> m (Bool, Int32, Int32, Maybe TreeModel, TreePath, TreeIter)
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr Int32
x' <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32 -> Int32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr Int32
x' Int32
x
Ptr Int32
y' <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32 -> Int32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr Int32
y' Int32
y
let keyboardTip' :: CInt
keyboardTip' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
keyboardTip
Ptr (Ptr TreeModel)
model <- IO (Ptr (Ptr TreeModel))
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr (Ptr Gtk.TreeModel.TreeModel))
Ptr (Ptr TreePath)
path <- IO (Ptr (Ptr TreePath))
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
Ptr TreeIter
iter <- Int -> IO (Ptr TreeIter)
forall a. BoxedObject a => Int -> IO (Ptr a)
callocBoxedBytes 32 :: IO (Ptr Gtk.TreeIter.TreeIter)
CInt
result <- Ptr TreeView
-> Ptr Int32
-> Ptr Int32
-> CInt
-> Ptr (Ptr TreeModel)
-> Ptr (Ptr TreePath)
-> Ptr TreeIter
-> IO CInt
gtk_tree_view_get_tooltip_context Ptr TreeView
treeView' Ptr Int32
x' Ptr Int32
y' CInt
keyboardTip' Ptr (Ptr TreeModel)
model Ptr (Ptr TreePath)
path Ptr TreeIter
iter
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Int32
x'' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
x'
Int32
y'' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
y'
Ptr TreeModel
model' <- Ptr (Ptr TreeModel) -> IO (Ptr TreeModel)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr TreeModel)
model
Maybe TreeModel
maybeModel' <- Ptr TreeModel
-> (Ptr TreeModel -> IO TreeModel) -> IO (Maybe TreeModel)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr TreeModel
model' ((Ptr TreeModel -> IO TreeModel) -> IO (Maybe TreeModel))
-> (Ptr TreeModel -> IO TreeModel) -> IO (Maybe TreeModel)
forall a b. (a -> b) -> a -> b
$ \model'' :: Ptr TreeModel
model'' -> do
TreeModel
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''
TreeModel -> IO TreeModel
forall (m :: * -> *) a. Monad m => a -> m a
return TreeModel
model'''
Ptr TreePath
path' <- Ptr (Ptr TreePath) -> IO (Ptr TreePath)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr TreePath)
path
TreePath
path'' <- ((ManagedPtr TreePath -> TreePath) -> Ptr TreePath -> IO TreePath
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath) Ptr TreePath
path'
TreeIter
iter' <- ((ManagedPtr TreeIter -> TreeIter) -> Ptr TreeIter -> IO TreeIter
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreeIter -> TreeIter
Gtk.TreeIter.TreeIter) Ptr TreeIter
iter
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
x'
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
y'
Ptr (Ptr TreeModel) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr TreeModel)
model
Ptr (Ptr TreePath) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr TreePath)
path
(Bool, Int32, Int32, Maybe TreeModel, TreePath, TreeIter)
-> IO (Bool, Int32, Int32, Maybe TreeModel, TreePath, TreeIter)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Int32
x'', Int32
y'', Maybe TreeModel
maybeModel', TreePath
path'', TreeIter
iter')
#if defined(ENABLE_OVERLOADING)
data TreeViewGetTooltipContextMethodInfo
instance (signature ~ (Int32 -> Int32 -> Bool -> m ((Bool, Int32, Int32, Maybe Gtk.TreeModel.TreeModel, Gtk.TreePath.TreePath, Gtk.TreeIter.TreeIter))), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewGetTooltipContextMethodInfo a signature where
overloadedMethod = treeViewGetTooltipContext
#endif
foreign import ccall "gtk_tree_view_get_vadjustment" gtk_tree_view_get_vadjustment ::
Ptr TreeView ->
IO (Ptr Gtk.Adjustment.Adjustment)
{-# DEPRECATED treeViewGetVadjustment ["(Since version 3.0)","Use 'GI.Gtk.Interfaces.Scrollable.scrollableGetVadjustment'"] #-}
treeViewGetVadjustment ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Gtk.Adjustment.Adjustment
treeViewGetVadjustment :: a -> m Adjustment
treeViewGetVadjustment treeView :: a
treeView = IO Adjustment -> m Adjustment
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Adjustment -> m Adjustment) -> IO Adjustment -> m Adjustment
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr Adjustment
result <- Ptr TreeView -> IO (Ptr Adjustment)
gtk_tree_view_get_vadjustment Ptr TreeView
treeView'
Text -> Ptr Adjustment -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "treeViewGetVadjustment" Ptr Adjustment
result
Adjustment
result' <- ((ManagedPtr Adjustment -> Adjustment)
-> Ptr Adjustment -> IO Adjustment
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Adjustment -> Adjustment
Gtk.Adjustment.Adjustment) Ptr Adjustment
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Adjustment -> IO Adjustment
forall (m :: * -> *) a. Monad m => a -> m a
return Adjustment
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetVadjustmentMethodInfo
instance (signature ~ (m Gtk.Adjustment.Adjustment), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewGetVadjustmentMethodInfo a signature where
overloadedMethod = treeViewGetVadjustment
#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
treeViewGetVisibleRange ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m ((Bool, Gtk.TreePath.TreePath, Gtk.TreePath.TreePath))
treeViewGetVisibleRange :: a -> m (Bool, TreePath, TreePath)
treeViewGetVisibleRange treeView :: a
treeView = IO (Bool, TreePath, TreePath) -> m (Bool, TreePath, TreePath)
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
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr (Ptr TreePath)
startPath <- IO (Ptr (Ptr TreePath))
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
Ptr (Ptr TreePath)
endPath <- IO (Ptr (Ptr TreePath))
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
CInt
result <- Ptr TreeView -> Ptr (Ptr TreePath) -> Ptr (Ptr TreePath) -> IO CInt
gtk_tree_view_get_visible_range Ptr TreeView
treeView' Ptr (Ptr TreePath)
startPath Ptr (Ptr TreePath)
endPath
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Ptr TreePath
startPath' <- Ptr (Ptr TreePath) -> IO (Ptr TreePath)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr TreePath)
startPath
TreePath
startPath'' <- ((ManagedPtr TreePath -> TreePath) -> Ptr TreePath -> IO TreePath
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath) Ptr TreePath
startPath'
Ptr TreePath
endPath' <- Ptr (Ptr TreePath) -> IO (Ptr TreePath)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr TreePath)
endPath
TreePath
endPath'' <- ((ManagedPtr TreePath -> TreePath) -> Ptr TreePath -> IO TreePath
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath) Ptr TreePath
endPath'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Ptr (Ptr TreePath) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr TreePath)
startPath
Ptr (Ptr TreePath) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr TreePath)
endPath
(Bool, TreePath, TreePath) -> IO (Bool, TreePath, TreePath)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', TreePath
startPath'', TreePath
endPath'')
#if defined(ENABLE_OVERLOADING)
data TreeViewGetVisibleRangeMethodInfo
instance (signature ~ (m ((Bool, Gtk.TreePath.TreePath, Gtk.TreePath.TreePath))), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewGetVisibleRangeMethodInfo a signature where
overloadedMethod = treeViewGetVisibleRange
#endif
foreign import ccall "gtk_tree_view_get_visible_rect" gtk_tree_view_get_visible_rect ::
Ptr TreeView ->
Ptr Gdk.Rectangle.Rectangle ->
IO ()
treeViewGetVisibleRect ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m (Gdk.Rectangle.Rectangle)
treeViewGetVisibleRect :: a -> m Rectangle
treeViewGetVisibleRect treeView :: a
treeView = IO Rectangle -> m Rectangle
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
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr Rectangle
visibleRect <- Int -> IO (Ptr Rectangle)
forall a. BoxedObject a => Int -> IO (Ptr a)
callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle.Rectangle)
Ptr TreeView -> Ptr Rectangle -> IO ()
gtk_tree_view_get_visible_rect Ptr TreeView
treeView' Ptr Rectangle
visibleRect
Rectangle
visibleRect' <- ((ManagedPtr Rectangle -> Rectangle)
-> Ptr Rectangle -> IO Rectangle
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle) Ptr Rectangle
visibleRect
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Rectangle -> IO Rectangle
forall (m :: * -> *) a. Monad m => a -> m a
return Rectangle
visibleRect'
#if defined(ENABLE_OVERLOADING)
data TreeViewGetVisibleRectMethodInfo
instance (signature ~ (m (Gdk.Rectangle.Rectangle)), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewGetVisibleRectMethodInfo a signature where
overloadedMethod = treeViewGetVisibleRect
#endif
foreign import ccall "gtk_tree_view_insert_column" gtk_tree_view_insert_column ::
Ptr TreeView ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
Int32 ->
IO Int32
treeViewInsertColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) =>
a
-> b
-> Int32
-> m Int32
treeViewInsertColumn :: a -> b -> Int32 -> m Int32
treeViewInsertColumn treeView :: a
treeView column :: b
column position :: Int32
position = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreeViewColumn
column' <- b -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
column
Int32
result <- Ptr TreeView -> Ptr TreeViewColumn -> Int32 -> IO Int32
gtk_tree_view_insert_column Ptr TreeView
treeView' Ptr TreeViewColumn
column' Int32
position
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
column
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TreeViewInsertColumnMethodInfo
instance (signature ~ (b -> Int32 -> m Int32), MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) => O.MethodInfo TreeViewInsertColumnMethodInfo a signature where
overloadedMethod = 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
treeViewInsertColumnWithDataFunc ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> Int32
-> T.Text
-> b
-> Gtk.Callbacks.TreeCellDataFunc
-> m Int32
treeViewInsertColumnWithDataFunc :: a -> Int32 -> Text -> b -> TreeCellDataFunc -> m Int32
treeViewInsertColumnWithDataFunc treeView :: a
treeView position :: Int32
position title :: Text
title cell :: b
cell func :: TreeCellDataFunc
func = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
CString
title' <- Text -> IO CString
textToCString Text
title
Ptr CellRenderer
cell' <- b -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
cell
FunPtr C_TreeCellDataFunc
func' <- C_TreeCellDataFunc -> IO (FunPtr C_TreeCellDataFunc)
Gtk.Callbacks.mk_TreeCellDataFunc (Maybe (Ptr (FunPtr C_TreeCellDataFunc))
-> TreeCellDataFunc_WithClosures -> C_TreeCellDataFunc
Gtk.Callbacks.wrap_TreeCellDataFunc Maybe (Ptr (FunPtr C_TreeCellDataFunc))
forall a. Maybe a
Nothing (TreeCellDataFunc -> TreeCellDataFunc_WithClosures
Gtk.Callbacks.drop_closures_TreeCellDataFunc TreeCellDataFunc
func))
let data_ :: Ptr ()
data_ = FunPtr C_TreeCellDataFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_TreeCellDataFunc
func'
let dnotify :: FunPtr (Ptr a -> IO ())
dnotify = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
safeFreeFunPtrPtr
Int32
result <- Ptr TreeView
-> Int32
-> CString
-> Ptr CellRenderer
-> FunPtr C_TreeCellDataFunc
-> Ptr ()
-> FunPtr C_DestroyNotify
-> IO Int32
gtk_tree_view_insert_column_with_data_func Ptr TreeView
treeView' Int32
position CString
title' Ptr CellRenderer
cell' FunPtr C_TreeCellDataFunc
func' Ptr ()
data_ FunPtr C_DestroyNotify
forall a. FunPtr (Ptr a -> IO ())
dnotify
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
cell
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
title'
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
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.MethodInfo TreeViewInsertColumnWithDataFuncMethodInfo a signature where
overloadedMethod = 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
treeViewIsBlankAtPos ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m ((Bool, Maybe Gtk.TreePath.TreePath, Maybe Gtk.TreeViewColumn.TreeViewColumn, Int32, Int32))
treeViewIsBlankAtPos :: a
-> Int32
-> Int32
-> m (Bool, Maybe TreePath, Maybe TreeViewColumn, Int32, Int32)
treeViewIsBlankAtPos treeView :: a
treeView x :: Int32
x y :: Int32
y = IO (Bool, Maybe TreePath, Maybe TreeViewColumn, Int32, Int32)
-> m (Bool, Maybe TreePath, Maybe TreeViewColumn, Int32, Int32)
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
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr (Ptr TreePath)
path <- IO (Ptr (Ptr TreePath))
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
Ptr (Ptr TreeViewColumn)
column <- IO (Ptr (Ptr TreeViewColumn))
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr (Ptr Gtk.TreeViewColumn.TreeViewColumn))
Ptr Int32
cellX <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
cellY <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
CInt
result <- Ptr TreeView
-> Int32
-> Int32
-> Ptr (Ptr TreePath)
-> Ptr (Ptr TreeViewColumn)
-> Ptr Int32
-> Ptr Int32
-> IO CInt
gtk_tree_view_is_blank_at_pos Ptr TreeView
treeView' Int32
x Int32
y Ptr (Ptr TreePath)
path Ptr (Ptr TreeViewColumn)
column Ptr Int32
cellX Ptr Int32
cellY
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Ptr TreePath
path' <- Ptr (Ptr TreePath) -> IO (Ptr TreePath)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr TreePath)
path
Maybe TreePath
maybePath' <- Ptr TreePath
-> (Ptr TreePath -> IO TreePath) -> IO (Maybe TreePath)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr TreePath
path' ((Ptr TreePath -> IO TreePath) -> IO (Maybe TreePath))
-> (Ptr TreePath -> IO TreePath) -> IO (Maybe TreePath)
forall a b. (a -> b) -> a -> b
$ \path'' :: Ptr TreePath
path'' -> do
TreePath
path''' <- ((ManagedPtr TreePath -> TreePath) -> Ptr TreePath -> IO TreePath
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath) Ptr TreePath
path''
TreePath -> IO TreePath
forall (m :: * -> *) a. Monad m => a -> m a
return TreePath
path'''
Ptr TreeViewColumn
column' <- Ptr (Ptr TreeViewColumn) -> IO (Ptr TreeViewColumn)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr TreeViewColumn)
column
Maybe TreeViewColumn
maybeColumn' <- Ptr TreeViewColumn
-> (Ptr TreeViewColumn -> IO TreeViewColumn)
-> IO (Maybe TreeViewColumn)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr TreeViewColumn
column' ((Ptr TreeViewColumn -> IO TreeViewColumn)
-> IO (Maybe TreeViewColumn))
-> (Ptr TreeViewColumn -> IO TreeViewColumn)
-> IO (Maybe TreeViewColumn)
forall a b. (a -> b) -> a -> b
$ \column'' :: Ptr TreeViewColumn
column'' -> do
TreeViewColumn
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''
TreeViewColumn -> IO TreeViewColumn
forall (m :: * -> *) a. Monad m => a -> m a
return TreeViewColumn
column'''
Int32
cellX' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
cellX
Int32
cellY' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
cellY
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Ptr (Ptr TreePath) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr TreePath)
path
Ptr (Ptr TreeViewColumn) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr TreeViewColumn)
column
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
cellX
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
cellY
(Bool, Maybe TreePath, Maybe TreeViewColumn, Int32, Int32)
-> IO (Bool, Maybe TreePath, Maybe TreeViewColumn, Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Maybe TreePath
maybePath', Maybe TreeViewColumn
maybeColumn', Int32
cellX', Int32
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.MethodInfo TreeViewIsBlankAtPosMethodInfo a signature where
overloadedMethod = treeViewIsBlankAtPos
#endif
foreign import ccall "gtk_tree_view_is_rubber_banding_active" gtk_tree_view_is_rubber_banding_active ::
Ptr TreeView ->
IO CInt
treeViewIsRubberBandingActive ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeViewIsRubberBandingActive :: a -> m Bool
treeViewIsRubberBandingActive treeView :: a
treeView = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TreeViewSelectAllCallback -> m Bool)
-> TreeViewSelectAllCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
CInt
result <- Ptr TreeView -> IO CInt
gtk_tree_view_is_rubber_banding_active Ptr TreeView
treeView'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
TreeViewSelectCursorRowCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewIsRubberBandingActiveMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewIsRubberBandingActiveMethodInfo a signature where
overloadedMethod = 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 ()
treeViewMapExpandedRows ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Gtk.Callbacks.TreeViewMappingFunc
-> m ()
treeViewMapExpandedRows :: a -> TreeViewMappingFunc -> m ()
treeViewMapExpandedRows treeView :: a
treeView func :: TreeViewMappingFunc
func = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
FunPtr C_TreeViewMappingFunc
func' <- C_TreeViewMappingFunc -> IO (FunPtr C_TreeViewMappingFunc)
Gtk.Callbacks.mk_TreeViewMappingFunc (Maybe (Ptr (FunPtr C_TreeViewMappingFunc))
-> TreeViewMappingFunc_WithClosures -> C_TreeViewMappingFunc
Gtk.Callbacks.wrap_TreeViewMappingFunc Maybe (Ptr (FunPtr C_TreeViewMappingFunc))
forall a. Maybe a
Nothing (TreeViewMappingFunc -> TreeViewMappingFunc_WithClosures
Gtk.Callbacks.drop_closures_TreeViewMappingFunc TreeViewMappingFunc
func))
let data_ :: Ptr a
data_ = Ptr a
forall a. Ptr a
nullPtr
Ptr TreeView -> FunPtr C_TreeViewMappingFunc -> C_DestroyNotify
gtk_tree_view_map_expanded_rows Ptr TreeView
treeView' FunPtr C_TreeViewMappingFunc
func' Ptr ()
forall a. Ptr a
data_
Ptr Any -> IO ()
forall a. Ptr a -> IO ()
safeFreeFunPtr (Ptr Any -> IO ()) -> Ptr Any -> IO ()
forall a b. (a -> b) -> a -> b
$ FunPtr C_TreeViewMappingFunc -> Ptr Any
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_TreeViewMappingFunc
func'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewMapExpandedRowsMethodInfo
instance (signature ~ (Gtk.Callbacks.TreeViewMappingFunc -> m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewMapExpandedRowsMethodInfo a signature where
overloadedMethod = 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 ()
treeViewMoveColumnAfter ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b, Gtk.TreeViewColumn.IsTreeViewColumn c) =>
a
-> b
-> Maybe (c)
-> m ()
treeViewMoveColumnAfter :: a -> b -> Maybe c -> m ()
treeViewMoveColumnAfter treeView :: a
treeView column :: b
column baseColumn :: Maybe c
baseColumn = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreeViewColumn
column' <- b -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
column
Ptr TreeViewColumn
maybeBaseColumn <- case Maybe c
baseColumn of
Nothing -> Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
forall a. Ptr a
nullPtr
Just jBaseColumn :: c
jBaseColumn -> do
Ptr TreeViewColumn
jBaseColumn' <- c -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jBaseColumn
Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
jBaseColumn'
Ptr TreeView -> Ptr TreeViewColumn -> Ptr TreeViewColumn -> IO ()
gtk_tree_view_move_column_after Ptr TreeView
treeView' Ptr TreeViewColumn
column' Ptr TreeViewColumn
maybeBaseColumn
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
column
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
baseColumn c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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.MethodInfo TreeViewMoveColumnAfterMethodInfo a signature where
overloadedMethod = treeViewMoveColumnAfter
#endif
foreign import ccall "gtk_tree_view_remove_column" gtk_tree_view_remove_column ::
Ptr TreeView ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
IO Int32
treeViewRemoveColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) =>
a
-> b
-> m Int32
treeViewRemoveColumn :: a -> b -> m Int32
treeViewRemoveColumn treeView :: a
treeView column :: b
column = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreeViewColumn
column' <- b -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
column
Int32
result <- Ptr TreeView -> Ptr TreeViewColumn -> IO Int32
gtk_tree_view_remove_column Ptr TreeView
treeView' Ptr TreeViewColumn
column'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
column
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TreeViewRemoveColumnMethodInfo
instance (signature ~ (b -> m Int32), MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) => O.MethodInfo TreeViewRemoveColumnMethodInfo a signature where
overloadedMethod = 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 ()
treeViewRowActivated ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) =>
a
-> Gtk.TreePath.TreePath
-> b
-> m ()
treeViewRowActivated :: a -> TreePath -> b -> m ()
treeViewRowActivated treeView :: a
treeView path :: TreePath
path column :: b
column = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreePath
path' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
path
Ptr TreeViewColumn
column' <- b -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
column
Ptr TreeView -> Ptr TreePath -> Ptr TreeViewColumn -> IO ()
gtk_tree_view_row_activated Ptr TreeView
treeView' Ptr TreePath
path' Ptr TreeViewColumn
column'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
TreePath -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreePath
path
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
column
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewRowActivatedMethodInfo
instance (signature ~ (Gtk.TreePath.TreePath -> b -> m ()), MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) => O.MethodInfo TreeViewRowActivatedMethodInfo a signature where
overloadedMethod = treeViewRowActivated
#endif
foreign import ccall "gtk_tree_view_row_expanded" gtk_tree_view_row_expanded ::
Ptr TreeView ->
Ptr Gtk.TreePath.TreePath ->
IO CInt
treeViewRowExpanded ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Gtk.TreePath.TreePath
-> m Bool
treeViewRowExpanded :: a -> TreePath -> m Bool
treeViewRowExpanded treeView :: a
treeView path :: TreePath
path = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (TreeViewSelectAllCallback -> m Bool)
-> TreeViewSelectAllCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreePath
path' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
path
CInt
result <- Ptr TreeView -> Ptr TreePath -> IO CInt
gtk_tree_view_row_expanded Ptr TreeView
treeView' Ptr TreePath
path'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
TreePath -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreePath
path
TreeViewSelectCursorRowCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewRowExpandedMethodInfo
instance (signature ~ (Gtk.TreePath.TreePath -> m Bool), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewRowExpandedMethodInfo a signature where
overloadedMethod = 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 ()
treeViewScrollToCell ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) =>
a
-> Maybe (Gtk.TreePath.TreePath)
-> Maybe (b)
-> Bool
-> Float
-> Float
-> m ()
treeViewScrollToCell :: a -> Maybe TreePath -> Maybe b -> Bool -> Float -> Float -> m ()
treeViewScrollToCell treeView :: a
treeView path :: Maybe TreePath
path column :: Maybe b
column useAlign :: Bool
useAlign rowAlign :: Float
rowAlign colAlign :: Float
colAlign = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreePath
maybePath <- case Maybe TreePath
path of
Nothing -> Ptr TreePath -> IO (Ptr TreePath)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreePath
forall a. Ptr a
nullPtr
Just jPath :: TreePath
jPath -> do
Ptr TreePath
jPath' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
jPath
Ptr TreePath -> IO (Ptr TreePath)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreePath
jPath'
Ptr TreeViewColumn
maybeColumn <- case Maybe b
column of
Nothing -> Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
forall a. Ptr a
nullPtr
Just jColumn :: b
jColumn -> do
Ptr TreeViewColumn
jColumn' <- b -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jColumn
Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
jColumn'
let useAlign' :: CInt
useAlign' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
useAlign
let rowAlign' :: CFloat
rowAlign' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
rowAlign
let colAlign' :: CFloat
colAlign' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
colAlign
Ptr TreeView
-> Ptr TreePath
-> Ptr TreeViewColumn
-> CInt
-> CFloat
-> CFloat
-> IO ()
gtk_tree_view_scroll_to_cell Ptr TreeView
treeView' Ptr TreePath
maybePath Ptr TreeViewColumn
maybeColumn CInt
useAlign' CFloat
rowAlign' CFloat
colAlign'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Maybe TreePath -> (TreePath -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe TreePath
path TreePath -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
column b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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.MethodInfo TreeViewScrollToCellMethodInfo a signature where
overloadedMethod = treeViewScrollToCell
#endif
foreign import ccall "gtk_tree_view_scroll_to_point" gtk_tree_view_scroll_to_point ::
Ptr TreeView ->
Int32 ->
Int32 ->
IO ()
treeViewScrollToPoint ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m ()
treeViewScrollToPoint :: a -> Int32 -> Int32 -> m ()
treeViewScrollToPoint treeView :: a
treeView treeX :: Int32
treeX treeY :: Int32
treeY = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreeView -> Int32 -> Int32 -> IO ()
gtk_tree_view_scroll_to_point Ptr TreeView
treeView' Int32
treeX Int32
treeY
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewScrollToPointMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewScrollToPointMethodInfo a signature where
overloadedMethod = 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 ()
treeViewSetActivateOnSingleClick ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Bool
-> m ()
treeViewSetActivateOnSingleClick :: a -> Bool -> m ()
treeViewSetActivateOnSingleClick treeView :: a
treeView single :: Bool
single = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
let single' :: CInt
single' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
single
Ptr TreeView -> CInt -> IO ()
gtk_tree_view_set_activate_on_single_click Ptr TreeView
treeView' CInt
single'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetActivateOnSingleClickMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewSetActivateOnSingleClickMethodInfo a signature where
overloadedMethod = 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 ()
treeViewSetColumnDragFunction ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Maybe (Gtk.Callbacks.TreeViewColumnDropFunc)
-> m ()
treeViewSetColumnDragFunction :: a -> Maybe TreeViewColumnDropFunc -> m ()
treeViewSetColumnDragFunction treeView :: a
treeView func :: Maybe TreeViewColumnDropFunc
func = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
FunPtr C_TreeViewColumnDropFunc
maybeFunc <- case Maybe TreeViewColumnDropFunc
func of
Nothing -> FunPtr C_TreeViewColumnDropFunc
-> IO (FunPtr C_TreeViewColumnDropFunc)
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_TreeViewColumnDropFunc
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just jFunc :: TreeViewColumnDropFunc
jFunc -> do
FunPtr C_TreeViewColumnDropFunc
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))
FunPtr C_TreeViewColumnDropFunc
-> IO (FunPtr C_TreeViewColumnDropFunc)
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_TreeViewColumnDropFunc
jFunc'
let userData :: Ptr ()
userData = FunPtr C_TreeViewColumnDropFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_TreeViewColumnDropFunc
maybeFunc
let destroy :: FunPtr (Ptr a -> IO ())
destroy = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
safeFreeFunPtrPtr
Ptr TreeView
-> FunPtr C_TreeViewColumnDropFunc
-> Ptr ()
-> FunPtr C_DestroyNotify
-> IO ()
gtk_tree_view_set_column_drag_function Ptr TreeView
treeView' FunPtr C_TreeViewColumnDropFunc
maybeFunc Ptr ()
userData FunPtr C_DestroyNotify
forall a. FunPtr (Ptr a -> IO ())
destroy
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetColumnDragFunctionMethodInfo
instance (signature ~ (Maybe (Gtk.Callbacks.TreeViewColumnDropFunc) -> m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewSetColumnDragFunctionMethodInfo a signature where
overloadedMethod = 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 ()
treeViewSetCursor ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) =>
a
-> Gtk.TreePath.TreePath
-> Maybe (b)
-> Bool
-> m ()
treeViewSetCursor :: a -> TreePath -> Maybe b -> Bool -> m ()
treeViewSetCursor treeView :: a
treeView path :: TreePath
path focusColumn :: Maybe b
focusColumn startEditing :: Bool
startEditing = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreePath
path' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
path
Ptr TreeViewColumn
maybeFocusColumn <- case Maybe b
focusColumn of
Nothing -> Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
forall a. Ptr a
nullPtr
Just jFocusColumn :: b
jFocusColumn -> do
Ptr TreeViewColumn
jFocusColumn' <- b -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jFocusColumn
Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
jFocusColumn'
let startEditing' :: CInt
startEditing' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
startEditing
Ptr TreeView -> Ptr TreePath -> Ptr TreeViewColumn -> CInt -> IO ()
gtk_tree_view_set_cursor Ptr TreeView
treeView' Ptr TreePath
path' Ptr TreeViewColumn
maybeFocusColumn CInt
startEditing'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
TreePath -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreePath
path
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
focusColumn b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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.MethodInfo TreeViewSetCursorMethodInfo a signature where
overloadedMethod = 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 ()
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 :: a -> TreePath -> Maybe b -> Maybe c -> Bool -> m ()
treeViewSetCursorOnCell treeView :: a
treeView path :: TreePath
path focusColumn :: Maybe b
focusColumn focusCell :: Maybe c
focusCell startEditing :: Bool
startEditing = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreePath
path' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
path
Ptr TreeViewColumn
maybeFocusColumn <- case Maybe b
focusColumn of
Nothing -> Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
forall a. Ptr a
nullPtr
Just jFocusColumn :: b
jFocusColumn -> do
Ptr TreeViewColumn
jFocusColumn' <- b -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jFocusColumn
Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
jFocusColumn'
Ptr CellRenderer
maybeFocusCell <- case Maybe c
focusCell of
Nothing -> Ptr CellRenderer -> IO (Ptr CellRenderer)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CellRenderer
forall a. Ptr a
nullPtr
Just jFocusCell :: c
jFocusCell -> do
Ptr CellRenderer
jFocusCell' <- c -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jFocusCell
Ptr CellRenderer -> IO (Ptr CellRenderer)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CellRenderer
jFocusCell'
let startEditing' :: CInt
startEditing' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
startEditing
Ptr TreeView
-> Ptr TreePath
-> Ptr TreeViewColumn
-> Ptr CellRenderer
-> CInt
-> IO ()
gtk_tree_view_set_cursor_on_cell Ptr TreeView
treeView' Ptr TreePath
path' Ptr TreeViewColumn
maybeFocusColumn Ptr CellRenderer
maybeFocusCell CInt
startEditing'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
TreePath -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreePath
path
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
focusColumn b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
focusCell c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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.MethodInfo TreeViewSetCursorOnCellMethodInfo a signature where
overloadedMethod = treeViewSetCursorOnCell
#endif
foreign import ccall "gtk_tree_view_set_destroy_count_func" gtk_tree_view_set_destroy_count_func ::
Ptr TreeView ->
FunPtr Gtk.Callbacks.C_TreeDestroyCountFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
{-# DEPRECATED treeViewSetDestroyCountFunc ["(Since version 3.4)","Accessibility does not need the function anymore."] #-}
treeViewSetDestroyCountFunc ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Maybe (Gtk.Callbacks.TreeDestroyCountFunc)
-> m ()
treeViewSetDestroyCountFunc :: a -> Maybe TreeDestroyCountFunc -> m ()
treeViewSetDestroyCountFunc treeView :: a
treeView func :: Maybe TreeDestroyCountFunc
func = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
FunPtr C_TreeDestroyCountFunc
maybeFunc <- case Maybe TreeDestroyCountFunc
func of
Nothing -> FunPtr C_TreeDestroyCountFunc -> IO (FunPtr C_TreeDestroyCountFunc)
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_TreeDestroyCountFunc
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just jFunc :: TreeDestroyCountFunc
jFunc -> do
FunPtr C_TreeDestroyCountFunc
jFunc' <- C_TreeDestroyCountFunc -> IO (FunPtr C_TreeDestroyCountFunc)
Gtk.Callbacks.mk_TreeDestroyCountFunc (Maybe (Ptr (FunPtr C_TreeDestroyCountFunc))
-> TreeDestroyCountFunc_WithClosures -> C_TreeDestroyCountFunc
Gtk.Callbacks.wrap_TreeDestroyCountFunc Maybe (Ptr (FunPtr C_TreeDestroyCountFunc))
forall a. Maybe a
Nothing (TreeDestroyCountFunc -> TreeDestroyCountFunc_WithClosures
Gtk.Callbacks.drop_closures_TreeDestroyCountFunc TreeDestroyCountFunc
jFunc))
FunPtr C_TreeDestroyCountFunc -> IO (FunPtr C_TreeDestroyCountFunc)
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_TreeDestroyCountFunc
jFunc'
let data_ :: Ptr ()
data_ = FunPtr C_TreeDestroyCountFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_TreeDestroyCountFunc
maybeFunc
let destroy :: FunPtr (Ptr a -> IO ())
destroy = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
safeFreeFunPtrPtr
Ptr TreeView
-> FunPtr C_TreeDestroyCountFunc
-> Ptr ()
-> FunPtr C_DestroyNotify
-> IO ()
gtk_tree_view_set_destroy_count_func Ptr TreeView
treeView' FunPtr C_TreeDestroyCountFunc
maybeFunc Ptr ()
data_ FunPtr C_DestroyNotify
forall a. FunPtr (Ptr a -> IO ())
destroy
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetDestroyCountFuncMethodInfo
instance (signature ~ (Maybe (Gtk.Callbacks.TreeDestroyCountFunc) -> m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewSetDestroyCountFuncMethodInfo a signature where
overloadedMethod = treeViewSetDestroyCountFunc
#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 ()
treeViewSetDragDestRow ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Maybe (Gtk.TreePath.TreePath)
-> Gtk.Enums.TreeViewDropPosition
-> m ()
treeViewSetDragDestRow :: a -> Maybe TreePath -> TreeViewDropPosition -> m ()
treeViewSetDragDestRow treeView :: a
treeView path :: Maybe TreePath
path pos :: TreeViewDropPosition
pos = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreePath
maybePath <- case Maybe TreePath
path of
Nothing -> Ptr TreePath -> IO (Ptr TreePath)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreePath
forall a. Ptr a
nullPtr
Just jPath :: TreePath
jPath -> do
Ptr TreePath
jPath' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
jPath
Ptr TreePath -> IO (Ptr TreePath)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreePath
jPath'
let pos' :: CUInt
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
Ptr TreeView -> Ptr TreePath -> CUInt -> IO ()
gtk_tree_view_set_drag_dest_row Ptr TreeView
treeView' Ptr TreePath
maybePath CUInt
pos'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Maybe TreePath -> (TreePath -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe TreePath
path TreePath -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetDragDestRowMethodInfo
instance (signature ~ (Maybe (Gtk.TreePath.TreePath) -> Gtk.Enums.TreeViewDropPosition -> m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewSetDragDestRowMethodInfo a signature where
overloadedMethod = treeViewSetDragDestRow
#endif
foreign import ccall "gtk_tree_view_set_enable_search" gtk_tree_view_set_enable_search ::
Ptr TreeView ->
CInt ->
IO ()
treeViewSetEnableSearch ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Bool
-> m ()
treeViewSetEnableSearch :: a -> Bool -> m ()
treeViewSetEnableSearch treeView :: a
treeView enableSearch :: Bool
enableSearch = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
let enableSearch' :: CInt
enableSearch' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enableSearch
Ptr TreeView -> CInt -> IO ()
gtk_tree_view_set_enable_search Ptr TreeView
treeView' CInt
enableSearch'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetEnableSearchMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewSetEnableSearchMethodInfo a signature where
overloadedMethod = treeViewSetEnableSearch
#endif
foreign import ccall "gtk_tree_view_set_enable_tree_lines" gtk_tree_view_set_enable_tree_lines ::
Ptr TreeView ->
CInt ->
IO ()
treeViewSetEnableTreeLines ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Bool
-> m ()
treeViewSetEnableTreeLines :: a -> Bool -> m ()
treeViewSetEnableTreeLines treeView :: a
treeView enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
Ptr TreeView -> CInt -> IO ()
gtk_tree_view_set_enable_tree_lines Ptr TreeView
treeView' CInt
enabled'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetEnableTreeLinesMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewSetEnableTreeLinesMethodInfo a signature where
overloadedMethod = treeViewSetEnableTreeLines
#endif
foreign import ccall "gtk_tree_view_set_expander_column" gtk_tree_view_set_expander_column ::
Ptr TreeView ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
IO ()
treeViewSetExpanderColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) =>
a
-> Maybe (b)
-> m ()
treeViewSetExpanderColumn :: a -> Maybe b -> m ()
treeViewSetExpanderColumn treeView :: a
treeView column :: Maybe b
column = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreeViewColumn
maybeColumn <- case Maybe b
column of
Nothing -> Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
forall a. Ptr a
nullPtr
Just jColumn :: b
jColumn -> do
Ptr TreeViewColumn
jColumn' <- b -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jColumn
Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
jColumn'
Ptr TreeView -> Ptr TreeViewColumn -> IO ()
gtk_tree_view_set_expander_column Ptr TreeView
treeView' Ptr TreeViewColumn
maybeColumn
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
column b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetExpanderColumnMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) => O.MethodInfo TreeViewSetExpanderColumnMethodInfo a signature where
overloadedMethod = treeViewSetExpanderColumn
#endif
foreign import ccall "gtk_tree_view_set_fixed_height_mode" gtk_tree_view_set_fixed_height_mode ::
Ptr TreeView ->
CInt ->
IO ()
treeViewSetFixedHeightMode ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Bool
-> m ()
treeViewSetFixedHeightMode :: a -> Bool -> m ()
treeViewSetFixedHeightMode treeView :: a
treeView enable :: Bool
enable = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
let enable' :: CInt
enable' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enable
Ptr TreeView -> CInt -> IO ()
gtk_tree_view_set_fixed_height_mode Ptr TreeView
treeView' CInt
enable'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetFixedHeightModeMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewSetFixedHeightModeMethodInfo a signature where
overloadedMethod = treeViewSetFixedHeightMode
#endif
foreign import ccall "gtk_tree_view_set_grid_lines" gtk_tree_view_set_grid_lines ::
Ptr TreeView ->
CUInt ->
IO ()
treeViewSetGridLines ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Gtk.Enums.TreeViewGridLines
-> m ()
treeViewSetGridLines :: a -> TreeViewGridLines -> m ()
treeViewSetGridLines treeView :: a
treeView gridLines :: TreeViewGridLines
gridLines = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
let gridLines' :: CUInt
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
Ptr TreeView -> CUInt -> IO ()
gtk_tree_view_set_grid_lines Ptr TreeView
treeView' CUInt
gridLines'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetGridLinesMethodInfo
instance (signature ~ (Gtk.Enums.TreeViewGridLines -> m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewSetGridLinesMethodInfo a signature where
overloadedMethod = treeViewSetGridLines
#endif
foreign import ccall "gtk_tree_view_set_hadjustment" gtk_tree_view_set_hadjustment ::
Ptr TreeView ->
Ptr Gtk.Adjustment.Adjustment ->
IO ()
{-# DEPRECATED treeViewSetHadjustment ["(Since version 3.0)","Use 'GI.Gtk.Interfaces.Scrollable.scrollableSetHadjustment'"] #-}
treeViewSetHadjustment ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.Adjustment.IsAdjustment b) =>
a
-> Maybe (b)
-> m ()
treeViewSetHadjustment :: a -> Maybe b -> m ()
treeViewSetHadjustment treeView :: a
treeView adjustment :: Maybe b
adjustment = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr Adjustment
maybeAdjustment <- case Maybe b
adjustment of
Nothing -> Ptr Adjustment -> IO (Ptr Adjustment)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Adjustment
forall a. Ptr a
nullPtr
Just jAdjustment :: b
jAdjustment -> do
Ptr Adjustment
jAdjustment' <- b -> IO (Ptr Adjustment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jAdjustment
Ptr Adjustment -> IO (Ptr Adjustment)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Adjustment
jAdjustment'
Ptr TreeView -> Ptr Adjustment -> IO ()
gtk_tree_view_set_hadjustment Ptr TreeView
treeView' Ptr Adjustment
maybeAdjustment
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
adjustment b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetHadjustmentMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsTreeView a, Gtk.Adjustment.IsAdjustment b) => O.MethodInfo TreeViewSetHadjustmentMethodInfo a signature where
overloadedMethod = treeViewSetHadjustment
#endif
foreign import ccall "gtk_tree_view_set_headers_clickable" ::
Ptr TreeView ->
CInt ->
IO ()
treeViewSetHeadersClickable ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Bool
-> m ()
treeView :: a
treeView setting :: Bool
setting = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
let setting' :: CInt
setting' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
setting
Ptr TreeView -> CInt -> IO ()
gtk_tree_view_set_headers_clickable Ptr TreeView
treeView' CInt
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetHeadersClickableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewSetHeadersClickableMethodInfo a signature where
overloadedMethod = treeViewSetHeadersClickable
#endif
foreign import ccall "gtk_tree_view_set_headers_visible" ::
Ptr TreeView ->
CInt ->
IO ()
treeViewSetHeadersVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Bool
-> m ()
treeView :: a
treeView headersVisible :: Bool
headersVisible = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
let headersVisible' :: CInt
headersVisible' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
headersVisible
Ptr TreeView -> CInt -> IO ()
gtk_tree_view_set_headers_visible Ptr TreeView
treeView' CInt
headersVisible'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetHeadersVisibleMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewSetHeadersVisibleMethodInfo a signature where
overloadedMethod = treeViewSetHeadersVisible
#endif
foreign import ccall "gtk_tree_view_set_hover_expand" gtk_tree_view_set_hover_expand ::
Ptr TreeView ->
CInt ->
IO ()
treeViewSetHoverExpand ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Bool
-> m ()
treeViewSetHoverExpand :: a -> Bool -> m ()
treeViewSetHoverExpand treeView :: a
treeView expand :: Bool
expand = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
let expand' :: CInt
expand' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
expand
Ptr TreeView -> CInt -> IO ()
gtk_tree_view_set_hover_expand Ptr TreeView
treeView' CInt
expand'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetHoverExpandMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewSetHoverExpandMethodInfo a signature where
overloadedMethod = treeViewSetHoverExpand
#endif
foreign import ccall "gtk_tree_view_set_hover_selection" gtk_tree_view_set_hover_selection ::
Ptr TreeView ->
CInt ->
IO ()
treeViewSetHoverSelection ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Bool
-> m ()
treeViewSetHoverSelection :: a -> Bool -> m ()
treeViewSetHoverSelection treeView :: a
treeView hover :: Bool
hover = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
let hover' :: CInt
hover' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
hover
Ptr TreeView -> CInt -> IO ()
gtk_tree_view_set_hover_selection Ptr TreeView
treeView' CInt
hover'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetHoverSelectionMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewSetHoverSelectionMethodInfo a signature where
overloadedMethod = treeViewSetHoverSelection
#endif
foreign import ccall "gtk_tree_view_set_level_indentation" gtk_tree_view_set_level_indentation ::
Ptr TreeView ->
Int32 ->
IO ()
treeViewSetLevelIndentation ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> m ()
treeViewSetLevelIndentation :: a -> Int32 -> m ()
treeViewSetLevelIndentation treeView :: a
treeView indentation :: Int32
indentation = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreeView -> Int32 -> IO ()
gtk_tree_view_set_level_indentation Ptr TreeView
treeView' Int32
indentation
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetLevelIndentationMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewSetLevelIndentationMethodInfo a signature where
overloadedMethod = treeViewSetLevelIndentation
#endif
foreign import ccall "gtk_tree_view_set_model" gtk_tree_view_set_model ::
Ptr TreeView ->
Ptr Gtk.TreeModel.TreeModel ->
IO ()
treeViewSetModel ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeModel.IsTreeModel b) =>
a
-> Maybe (b)
-> m ()
treeViewSetModel :: a -> Maybe b -> m ()
treeViewSetModel treeView :: a
treeView model :: Maybe b
model = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreeModel
maybeModel <- case Maybe b
model of
Nothing -> Ptr TreeModel -> IO (Ptr TreeModel)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeModel
forall a. Ptr a
nullPtr
Just jModel :: b
jModel -> do
Ptr TreeModel
jModel' <- b -> IO (Ptr TreeModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jModel
Ptr TreeModel -> IO (Ptr TreeModel)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeModel
jModel'
Ptr TreeView -> Ptr TreeModel -> IO ()
gtk_tree_view_set_model Ptr TreeView
treeView' Ptr TreeModel
maybeModel
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
model b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetModelMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsTreeView a, Gtk.TreeModel.IsTreeModel b) => O.MethodInfo TreeViewSetModelMethodInfo a signature where
overloadedMethod = treeViewSetModel
#endif
foreign import ccall "gtk_tree_view_set_reorderable" gtk_tree_view_set_reorderable ::
Ptr TreeView ->
CInt ->
IO ()
treeViewSetReorderable ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Bool
-> m ()
treeViewSetReorderable :: a -> Bool -> m ()
treeViewSetReorderable treeView :: a
treeView reorderable :: Bool
reorderable = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
let reorderable' :: CInt
reorderable' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
reorderable
Ptr TreeView -> CInt -> IO ()
gtk_tree_view_set_reorderable Ptr TreeView
treeView' CInt
reorderable'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetReorderableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewSetReorderableMethodInfo a signature where
overloadedMethod = 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 ()
treeViewSetRowSeparatorFunc ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Maybe (Gtk.Callbacks.TreeViewRowSeparatorFunc)
-> m ()
treeViewSetRowSeparatorFunc :: a -> Maybe TreeViewRowSeparatorFunc -> m ()
treeViewSetRowSeparatorFunc treeView :: a
treeView func :: Maybe TreeViewRowSeparatorFunc
func = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
FunPtr C_TreeViewRowSeparatorFunc
maybeFunc <- case Maybe TreeViewRowSeparatorFunc
func of
Nothing -> FunPtr C_TreeViewRowSeparatorFunc
-> IO (FunPtr C_TreeViewRowSeparatorFunc)
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_TreeViewRowSeparatorFunc
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just jFunc :: TreeViewRowSeparatorFunc
jFunc -> do
FunPtr C_TreeViewRowSeparatorFunc
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))
FunPtr C_TreeViewRowSeparatorFunc
-> IO (FunPtr C_TreeViewRowSeparatorFunc)
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_TreeViewRowSeparatorFunc
jFunc'
let data_ :: Ptr ()
data_ = FunPtr C_TreeViewRowSeparatorFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_TreeViewRowSeparatorFunc
maybeFunc
let destroy :: FunPtr (Ptr a -> IO ())
destroy = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
safeFreeFunPtrPtr
Ptr TreeView
-> FunPtr C_TreeViewRowSeparatorFunc
-> Ptr ()
-> FunPtr C_DestroyNotify
-> IO ()
gtk_tree_view_set_row_separator_func Ptr TreeView
treeView' FunPtr C_TreeViewRowSeparatorFunc
maybeFunc Ptr ()
data_ FunPtr C_DestroyNotify
forall a. FunPtr (Ptr a -> IO ())
destroy
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetRowSeparatorFuncMethodInfo
instance (signature ~ (Maybe (Gtk.Callbacks.TreeViewRowSeparatorFunc) -> m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewSetRowSeparatorFuncMethodInfo a signature where
overloadedMethod = treeViewSetRowSeparatorFunc
#endif
foreign import ccall "gtk_tree_view_set_rubber_banding" gtk_tree_view_set_rubber_banding ::
Ptr TreeView ->
CInt ->
IO ()
treeViewSetRubberBanding ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Bool
-> m ()
treeViewSetRubberBanding :: a -> Bool -> m ()
treeViewSetRubberBanding treeView :: a
treeView enable :: Bool
enable = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
let enable' :: CInt
enable' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enable
Ptr TreeView -> CInt -> IO ()
gtk_tree_view_set_rubber_banding Ptr TreeView
treeView' CInt
enable'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetRubberBandingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewSetRubberBandingMethodInfo a signature where
overloadedMethod = treeViewSetRubberBanding
#endif
foreign import ccall "gtk_tree_view_set_rules_hint" gtk_tree_view_set_rules_hint ::
Ptr TreeView ->
CInt ->
IO ()
{-# DEPRECATED treeViewSetRulesHint ["(Since version 3.14)"] #-}
treeViewSetRulesHint ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Bool
-> m ()
treeViewSetRulesHint :: a -> Bool -> m ()
treeViewSetRulesHint treeView :: a
treeView setting :: Bool
setting = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
let setting' :: CInt
setting' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
setting
Ptr TreeView -> CInt -> IO ()
gtk_tree_view_set_rules_hint Ptr TreeView
treeView' CInt
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetRulesHintMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewSetRulesHintMethodInfo a signature where
overloadedMethod = treeViewSetRulesHint
#endif
foreign import ccall "gtk_tree_view_set_search_column" gtk_tree_view_set_search_column ::
Ptr TreeView ->
Int32 ->
IO ()
treeViewSetSearchColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> m ()
treeViewSetSearchColumn :: a -> Int32 -> m ()
treeViewSetSearchColumn treeView :: a
treeView column :: Int32
column = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreeView -> Int32 -> IO ()
gtk_tree_view_set_search_column Ptr TreeView
treeView' Int32
column
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetSearchColumnMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewSetSearchColumnMethodInfo a signature where
overloadedMethod = treeViewSetSearchColumn
#endif
foreign import ccall "gtk_tree_view_set_search_entry" gtk_tree_view_set_search_entry ::
Ptr TreeView ->
Ptr Gtk.Entry.Entry ->
IO ()
treeViewSetSearchEntry ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.Entry.IsEntry b) =>
a
-> Maybe (b)
-> m ()
treeViewSetSearchEntry :: a -> Maybe b -> m ()
treeViewSetSearchEntry treeView :: a
treeView entry :: Maybe b
entry = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr Entry
maybeEntry <- case Maybe b
entry of
Nothing -> Ptr Entry -> IO (Ptr Entry)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Entry
forall a. Ptr a
nullPtr
Just jEntry :: b
jEntry -> do
Ptr Entry
jEntry' <- b -> IO (Ptr Entry)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jEntry
Ptr Entry -> IO (Ptr Entry)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Entry
jEntry'
Ptr TreeView -> Ptr Entry -> IO ()
gtk_tree_view_set_search_entry Ptr TreeView
treeView' Ptr Entry
maybeEntry
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
entry b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetSearchEntryMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsTreeView a, Gtk.Entry.IsEntry b) => O.MethodInfo TreeViewSetSearchEntryMethodInfo a signature where
overloadedMethod = 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 ()
treeViewSetSearchEqualFunc ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Gtk.Callbacks.TreeViewSearchEqualFunc
-> m ()
treeViewSetSearchEqualFunc :: a -> TreeViewSearchEqualFunc -> m ()
treeViewSetSearchEqualFunc treeView :: a
treeView searchEqualFunc :: TreeViewSearchEqualFunc
searchEqualFunc = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
FunPtr C_TreeViewSearchEqualFunc
searchEqualFunc' <- C_TreeViewSearchEqualFunc -> IO (FunPtr C_TreeViewSearchEqualFunc)
Gtk.Callbacks.mk_TreeViewSearchEqualFunc (Maybe (Ptr (FunPtr C_TreeViewSearchEqualFunc))
-> TreeViewSearchEqualFunc_WithClosures
-> C_TreeViewSearchEqualFunc
Gtk.Callbacks.wrap_TreeViewSearchEqualFunc Maybe (Ptr (FunPtr C_TreeViewSearchEqualFunc))
forall a. Maybe a
Nothing (TreeViewSearchEqualFunc -> TreeViewSearchEqualFunc_WithClosures
Gtk.Callbacks.drop_closures_TreeViewSearchEqualFunc TreeViewSearchEqualFunc
searchEqualFunc))
let searchUserData :: Ptr ()
searchUserData = FunPtr C_TreeViewSearchEqualFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_TreeViewSearchEqualFunc
searchEqualFunc'
let searchDestroy :: FunPtr (Ptr a -> IO ())
searchDestroy = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
safeFreeFunPtrPtr
Ptr TreeView
-> FunPtr C_TreeViewSearchEqualFunc
-> Ptr ()
-> FunPtr C_DestroyNotify
-> IO ()
gtk_tree_view_set_search_equal_func Ptr TreeView
treeView' FunPtr C_TreeViewSearchEqualFunc
searchEqualFunc' Ptr ()
searchUserData FunPtr C_DestroyNotify
forall a. FunPtr (Ptr a -> IO ())
searchDestroy
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetSearchEqualFuncMethodInfo
instance (signature ~ (Gtk.Callbacks.TreeViewSearchEqualFunc -> m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewSetSearchEqualFuncMethodInfo a signature where
overloadedMethod = treeViewSetSearchEqualFunc
#endif
foreign import ccall "gtk_tree_view_set_search_position_func" gtk_tree_view_set_search_position_func ::
Ptr TreeView ->
FunPtr Gtk.Callbacks.C_TreeViewSearchPositionFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
treeViewSetSearchPositionFunc ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Maybe (Gtk.Callbacks.TreeViewSearchPositionFunc)
-> m ()
treeViewSetSearchPositionFunc :: a -> Maybe TreeViewSearchPositionFunc -> m ()
treeViewSetSearchPositionFunc treeView :: a
treeView func :: Maybe TreeViewSearchPositionFunc
func = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
FunPtr C_TreeViewSearchPositionFunc
maybeFunc <- case Maybe TreeViewSearchPositionFunc
func of
Nothing -> FunPtr C_TreeViewSearchPositionFunc
-> IO (FunPtr C_TreeViewSearchPositionFunc)
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_TreeViewSearchPositionFunc
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just jFunc :: TreeViewSearchPositionFunc
jFunc -> do
FunPtr C_TreeViewSearchPositionFunc
jFunc' <- C_TreeViewSearchPositionFunc
-> IO (FunPtr C_TreeViewSearchPositionFunc)
Gtk.Callbacks.mk_TreeViewSearchPositionFunc (Maybe (Ptr (FunPtr C_TreeViewSearchPositionFunc))
-> TreeViewSearchPositionFunc_WithClosures
-> C_TreeViewSearchPositionFunc
Gtk.Callbacks.wrap_TreeViewSearchPositionFunc Maybe (Ptr (FunPtr C_TreeViewSearchPositionFunc))
forall a. Maybe a
Nothing (TreeViewSearchPositionFunc
-> TreeViewSearchPositionFunc_WithClosures
Gtk.Callbacks.drop_closures_TreeViewSearchPositionFunc TreeViewSearchPositionFunc
jFunc))
FunPtr C_TreeViewSearchPositionFunc
-> IO (FunPtr C_TreeViewSearchPositionFunc)
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_TreeViewSearchPositionFunc
jFunc'
let data_ :: Ptr ()
data_ = FunPtr C_TreeViewSearchPositionFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_TreeViewSearchPositionFunc
maybeFunc
let destroy :: FunPtr (Ptr a -> IO ())
destroy = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
safeFreeFunPtrPtr
Ptr TreeView
-> FunPtr C_TreeViewSearchPositionFunc
-> Ptr ()
-> FunPtr C_DestroyNotify
-> IO ()
gtk_tree_view_set_search_position_func Ptr TreeView
treeView' FunPtr C_TreeViewSearchPositionFunc
maybeFunc Ptr ()
data_ FunPtr C_DestroyNotify
forall a. FunPtr (Ptr a -> IO ())
destroy
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetSearchPositionFuncMethodInfo
instance (signature ~ (Maybe (Gtk.Callbacks.TreeViewSearchPositionFunc) -> m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewSetSearchPositionFuncMethodInfo a signature where
overloadedMethod = treeViewSetSearchPositionFunc
#endif
foreign import ccall "gtk_tree_view_set_show_expanders" gtk_tree_view_set_show_expanders ::
Ptr TreeView ->
CInt ->
IO ()
treeViewSetShowExpanders ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Bool
-> m ()
treeViewSetShowExpanders :: a -> Bool -> m ()
treeViewSetShowExpanders treeView :: a
treeView enabled :: Bool
enabled = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
let enabled' :: CInt
enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
enabled
Ptr TreeView -> CInt -> IO ()
gtk_tree_view_set_show_expanders Ptr TreeView
treeView' CInt
enabled'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetShowExpandersMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewSetShowExpandersMethodInfo a signature where
overloadedMethod = 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 ()
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 :: a -> b -> Maybe TreePath -> Maybe c -> Maybe d -> m ()
treeViewSetTooltipCell treeView :: a
treeView tooltip :: b
tooltip path :: Maybe TreePath
path column :: Maybe c
column cell :: Maybe d
cell = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr Tooltip
tooltip' <- b -> IO (Ptr Tooltip)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
tooltip
Ptr TreePath
maybePath <- case Maybe TreePath
path of
Nothing -> Ptr TreePath -> IO (Ptr TreePath)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreePath
forall a. Ptr a
nullPtr
Just jPath :: TreePath
jPath -> do
Ptr TreePath
jPath' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
jPath
Ptr TreePath -> IO (Ptr TreePath)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreePath
jPath'
Ptr TreeViewColumn
maybeColumn <- case Maybe c
column of
Nothing -> Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
forall a. Ptr a
nullPtr
Just jColumn :: c
jColumn -> do
Ptr TreeViewColumn
jColumn' <- c -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jColumn
Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
jColumn'
Ptr CellRenderer
maybeCell <- case Maybe d
cell of
Nothing -> Ptr CellRenderer -> IO (Ptr CellRenderer)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CellRenderer
forall a. Ptr a
nullPtr
Just jCell :: d
jCell -> do
Ptr CellRenderer
jCell' <- d -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr d
jCell
Ptr CellRenderer -> IO (Ptr CellRenderer)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CellRenderer
jCell'
Ptr TreeView
-> Ptr Tooltip
-> Ptr TreePath
-> Ptr TreeViewColumn
-> Ptr CellRenderer
-> IO ()
gtk_tree_view_set_tooltip_cell Ptr TreeView
treeView' Ptr Tooltip
tooltip' Ptr TreePath
maybePath Ptr TreeViewColumn
maybeColumn Ptr CellRenderer
maybeCell
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
tooltip
Maybe TreePath -> (TreePath -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe TreePath
path TreePath -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
column c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Maybe d -> (d -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe d
cell d -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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.MethodInfo TreeViewSetTooltipCellMethodInfo a signature where
overloadedMethod = treeViewSetTooltipCell
#endif
foreign import ccall "gtk_tree_view_set_tooltip_column" gtk_tree_view_set_tooltip_column ::
Ptr TreeView ->
Int32 ->
IO ()
treeViewSetTooltipColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> m ()
treeViewSetTooltipColumn :: a -> Int32 -> m ()
treeViewSetTooltipColumn treeView :: a
treeView column :: Int32
column = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreeView -> Int32 -> IO ()
gtk_tree_view_set_tooltip_column Ptr TreeView
treeView' Int32
column
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetTooltipColumnMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewSetTooltipColumnMethodInfo a signature where
overloadedMethod = 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 ()
treeViewSetTooltipRow ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.Tooltip.IsTooltip b) =>
a
-> b
-> Gtk.TreePath.TreePath
-> m ()
treeViewSetTooltipRow :: a -> b -> TreePath -> m ()
treeViewSetTooltipRow treeView :: a
treeView tooltip :: b
tooltip path :: TreePath
path = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr Tooltip
tooltip' <- b -> IO (Ptr Tooltip)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
tooltip
Ptr TreePath
path' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
path
Ptr TreeView -> Ptr Tooltip -> Ptr TreePath -> IO ()
gtk_tree_view_set_tooltip_row Ptr TreeView
treeView' Ptr Tooltip
tooltip' Ptr TreePath
path'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
tooltip
TreePath -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreePath
path
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetTooltipRowMethodInfo
instance (signature ~ (b -> Gtk.TreePath.TreePath -> m ()), MonadIO m, IsTreeView a, Gtk.Tooltip.IsTooltip b) => O.MethodInfo TreeViewSetTooltipRowMethodInfo a signature where
overloadedMethod = treeViewSetTooltipRow
#endif
foreign import ccall "gtk_tree_view_set_vadjustment" gtk_tree_view_set_vadjustment ::
Ptr TreeView ->
Ptr Gtk.Adjustment.Adjustment ->
IO ()
{-# DEPRECATED treeViewSetVadjustment ["(Since version 3.0)","Use 'GI.Gtk.Interfaces.Scrollable.scrollableSetVadjustment'"] #-}
treeViewSetVadjustment ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.Adjustment.IsAdjustment b) =>
a
-> Maybe (b)
-> m ()
treeViewSetVadjustment :: a -> Maybe b -> m ()
treeViewSetVadjustment treeView :: a
treeView adjustment :: Maybe b
adjustment = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr Adjustment
maybeAdjustment <- case Maybe b
adjustment of
Nothing -> Ptr Adjustment -> IO (Ptr Adjustment)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Adjustment
forall a. Ptr a
nullPtr
Just jAdjustment :: b
jAdjustment -> do
Ptr Adjustment
jAdjustment' <- b -> IO (Ptr Adjustment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jAdjustment
Ptr Adjustment -> IO (Ptr Adjustment)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Adjustment
jAdjustment'
Ptr TreeView -> Ptr Adjustment -> IO ()
gtk_tree_view_set_vadjustment Ptr TreeView
treeView' Ptr Adjustment
maybeAdjustment
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
adjustment b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewSetVadjustmentMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsTreeView a, Gtk.Adjustment.IsAdjustment b) => O.MethodInfo TreeViewSetVadjustmentMethodInfo a signature where
overloadedMethod = treeViewSetVadjustment
#endif
foreign import ccall "gtk_tree_view_unset_rows_drag_dest" gtk_tree_view_unset_rows_drag_dest ::
Ptr TreeView ->
IO ()
treeViewUnsetRowsDragDest ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m ()
treeViewUnsetRowsDragDest :: a -> m ()
treeViewUnsetRowsDragDest treeView :: a
treeView = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreeView -> IO ()
gtk_tree_view_unset_rows_drag_dest Ptr TreeView
treeView'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewUnsetRowsDragDestMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewUnsetRowsDragDestMethodInfo a signature where
overloadedMethod = treeViewUnsetRowsDragDest
#endif
foreign import ccall "gtk_tree_view_unset_rows_drag_source" gtk_tree_view_unset_rows_drag_source ::
Ptr TreeView ->
IO ()
treeViewUnsetRowsDragSource ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m ()
treeViewUnsetRowsDragSource :: a -> m ()
treeViewUnsetRowsDragSource treeView :: a
treeView = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeView
treeView' <- a -> IO (Ptr TreeView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeView
Ptr TreeView -> IO ()
gtk_tree_view_unset_rows_drag_source Ptr TreeView
treeView'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewUnsetRowsDragSourceMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTreeView a) => O.MethodInfo TreeViewUnsetRowsDragSourceMethodInfo a signature where
overloadedMethod = treeViewUnsetRowsDragSource
#endif