{-# 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 ,
#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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.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 (SP.ManagedPtr TreeView)
deriving (TreeView -> TreeView -> Bool
(TreeView -> TreeView -> Bool)
-> (TreeView -> TreeView -> Bool) -> Eq TreeView
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TreeView -> TreeView -> Bool
$c/= :: TreeView -> TreeView -> Bool
== :: TreeView -> TreeView -> Bool
$c== :: TreeView -> TreeView -> Bool
Eq)
instance SP.ManagedPtrNewtype TreeView where
toManagedPtr :: TreeView -> ManagedPtr TreeView
toManagedPtr (TreeView ManagedPtr TreeView
p) = ManagedPtr TreeView
p
foreign import ccall "gtk_tree_view_get_type"
c_gtk_tree_view_get_type :: IO B.Types.GType
instance B.Types.TypedObject TreeView where
glibType :: IO GType
glibType = IO GType
c_gtk_tree_view_get_type
instance B.Types.GObject TreeView
class (SP.GObject o, O.IsDescendantOf TreeView o) => IsTreeView o
instance (SP.GObject o, O.IsDescendantOf TreeView o) => IsTreeView o
instance O.HasParentTypes TreeView
type instance O.ParentTypes TreeView = '[Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable, Gtk.Scrollable.Scrollable]
toTreeView :: (MIO.MonadIO m, IsTreeView o) => o -> m TreeView
toTreeView :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> m TreeView
toTreeView = IO TreeView -> m TreeView
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO TreeView -> m TreeView)
-> (o -> IO TreeView) -> o -> m TreeView
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr TreeView -> TreeView) -> o -> IO TreeView
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr TreeView -> TreeView
TreeView
instance B.GValue.IsGValue (Maybe TreeView) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_tree_view_get_type
gvalueSet_ :: Ptr GValue -> Maybe TreeView -> IO ()
gvalueSet_ Ptr GValue
gv Maybe TreeView
P.Nothing = Ptr GValue -> Ptr TreeView -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr TreeView
forall a. Ptr a
FP.nullPtr :: FP.Ptr TreeView)
gvalueSet_ Ptr GValue
gv (P.Just TreeView
obj) = TreeView -> (Ptr TreeView -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr TreeView
obj (Ptr GValue -> Ptr TreeView -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe TreeView)
gvalueGet_ Ptr GValue
gv = do
Ptr TreeView
ptr <- Ptr GValue -> IO (Ptr TreeView)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr TreeView)
if Ptr TreeView
ptr Ptr TreeView -> Ptr TreeView -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr TreeView
forall a. Ptr a
FP.nullPtr
then TreeView -> Maybe TreeView
forall a. a -> Maybe a
P.Just (TreeView -> Maybe TreeView) -> IO TreeView -> IO (Maybe TreeView)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (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
else Maybe TreeView -> IO (Maybe TreeView)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TreeView
forall a. Maybe a
P.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.OverloadedMethod info TreeView p) => OL.IsLabel t (TreeView -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveTreeViewMethod t TreeView, O.OverloadedMethod info TreeView p, R.HasField t TreeView p) => R.HasField t TreeView p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveTreeViewMethod t TreeView, O.OverloadedMethodInfo info TreeView) => OL.IsLabel t (O.MethodProxy info TreeView) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type TreeViewColumnsChangedCallback =
IO ()
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 :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_TreeViewColumnsChangedCallback)
genClosure_TreeViewColumnsChanged 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 IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onTreeViewColumnsChanged :: (IsTreeView a, MonadIO m) => a -> TreeViewColumnsChangedCallback -> m SignalHandlerId
onTreeViewColumnsChanged :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onTreeViewColumnsChanged a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterTreeViewColumnsChanged a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_TreeViewColumnsChangedCallback)
genClosure_TreeViewCursorChanged 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 IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onTreeViewCursorChanged :: (IsTreeView a, MonadIO m) => a -> TreeViewCursorChangedCallback -> m SignalHandlerId
onTreeViewCursorChanged :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onTreeViewCursorChanged a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterTreeViewCursorChanged a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
TreeViewExpandCollapseCursorRowCallback
-> m (GClosure C_TreeViewExpandCollapseCursorRowCallback)
genClosure_TreeViewExpandCollapseCursorRow 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 TreeViewExpandCollapseCursorRowCallback
_cb Ptr ()
_ CInt
object CInt
p0 CInt
p1 Ptr ()
_ = do
let object' :: Bool
object' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
object
let p0' :: Bool
p0' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
p0
let p1' :: Bool
p1' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
p1
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 :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> TreeViewExpandCollapseCursorRowCallback -> m SignalHandlerId
onTreeViewExpandCollapseCursorRow a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> TreeViewExpandCollapseCursorRowCallback -> m SignalHandlerId
afterTreeViewExpandCollapseCursorRow a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
TreeViewMoveCursorCallback
-> m (GClosure C_TreeViewMoveCursorCallback)
genClosure_TreeViewMoveCursor 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 TreeViewMoveCursorCallback
_cb Ptr ()
_ CUInt
step Int32
direction Ptr ()
_ = do
let step' :: MovementStep
step' = (Int -> MovementStep
forall a. Enum a => Int -> a
toEnum (Int -> MovementStep) -> (CUInt -> Int) -> CUInt -> MovementStep
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
step
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 :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> TreeViewMoveCursorCallback -> m SignalHandlerId
onTreeViewMoveCursor a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> TreeViewMoveCursorCallback -> m SignalHandlerId
afterTreeViewMoveCursor a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
TreeViewRowActivatedCallback
-> m (GClosure C_TreeViewRowActivatedCallback)
genClosure_TreeViewRowActivated 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 TreeViewRowActivatedCallback
_cb Ptr ()
_ Ptr TreePath
path Ptr TreeViewColumn
column Ptr ()
_ = 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
$ \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 :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> TreeViewRowActivatedCallback -> m SignalHandlerId
onTreeViewRowActivated a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> TreeViewRowActivatedCallback -> m SignalHandlerId
afterTreeViewRowActivated a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
TreeViewRowCollapsedCallback
-> m (GClosure C_TreeViewRowCollapsedCallback)
genClosure_TreeViewRowCollapsed 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 TreeViewRowCollapsedCallback
_cb Ptr ()
_ Ptr TreeIter
iter Ptr TreePath
path Ptr ()
_ = 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
$ \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
$ \TreePath
path' -> do
TreeViewRowCollapsedCallback
_cb TreeIter
iter' TreePath
path'
onTreeViewRowCollapsed :: (IsTreeView a, MonadIO m) => a -> TreeViewRowCollapsedCallback -> m SignalHandlerId
onTreeViewRowCollapsed :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> TreeViewRowCollapsedCallback -> m SignalHandlerId
onTreeViewRowCollapsed a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> TreeViewRowCollapsedCallback -> m SignalHandlerId
afterTreeViewRowCollapsed a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
TreeViewRowCollapsedCallback
-> m (GClosure C_TreeViewRowCollapsedCallback)
genClosure_TreeViewRowExpanded 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 TreeViewRowCollapsedCallback
_cb Ptr ()
_ Ptr TreeIter
iter Ptr TreePath
path Ptr ()
_ = 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
$ \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
$ \TreePath
path' -> do
TreeViewRowCollapsedCallback
_cb TreeIter
iter' TreePath
path'
onTreeViewRowExpanded :: (IsTreeView a, MonadIO m) => a -> TreeViewRowExpandedCallback -> m SignalHandlerId
onTreeViewRowExpanded :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> TreeViewRowCollapsedCallback -> m SignalHandlerId
onTreeViewRowExpanded a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> TreeViewRowCollapsedCallback -> m SignalHandlerId
afterTreeViewRowExpanded a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
TreeViewSelectAllCallback
-> m (GClosure C_TreeViewSelectAllCallback)
genClosure_TreeViewSelectAll 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 TreeViewSelectAllCallback
_cb Ptr ()
_ Ptr ()
_ = 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 :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> TreeViewSelectAllCallback -> m SignalHandlerId
onTreeViewSelectAll a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> TreeViewSelectAllCallback -> m SignalHandlerId
afterTreeViewSelectAll a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
TreeViewSelectAllCallback
-> m (GClosure C_TreeViewSelectAllCallback)
genClosure_TreeViewSelectCursorParent 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 TreeViewSelectAllCallback
_cb Ptr ()
_ Ptr ()
_ = 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 :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> TreeViewSelectAllCallback -> m SignalHandlerId
onTreeViewSelectCursorParent a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> TreeViewSelectAllCallback -> m SignalHandlerId
afterTreeViewSelectCursorParent a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
TreeViewSelectCursorRowCallback
-> m (GClosure C_TreeViewSelectCursorRowCallback)
genClosure_TreeViewSelectCursorRow 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 TreeViewSelectCursorRowCallback
_cb Ptr ()
_ CInt
object Ptr ()
_ = do
let object' :: Bool
object' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
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 :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> TreeViewSelectCursorRowCallback -> m SignalHandlerId
onTreeViewSelectCursorRow a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> TreeViewSelectCursorRowCallback -> m SignalHandlerId
afterTreeViewSelectCursorRow a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
TreeViewSelectAllCallback
-> m (GClosure C_TreeViewSelectAllCallback)
genClosure_TreeViewStartInteractiveSearch 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 TreeViewSelectAllCallback
_cb Ptr ()
_ Ptr ()
_ = 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 :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> TreeViewSelectAllCallback -> m SignalHandlerId
onTreeViewStartInteractiveSearch a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> TreeViewSelectAllCallback -> m SignalHandlerId
afterTreeViewStartInteractiveSearch a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
TreeViewTestCollapseRowCallback
-> m (GClosure C_TreeViewTestCollapseRowCallback)
genClosure_TreeViewTestCollapseRow 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 TreeViewTestCollapseRowCallback
_cb Ptr ()
_ Ptr TreeIter
iter Ptr TreePath
path Ptr ()
_ = 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
$ \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
$ \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 :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> TreeViewTestCollapseRowCallback -> m SignalHandlerId
onTreeViewTestCollapseRow a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> TreeViewTestCollapseRowCallback -> m SignalHandlerId
afterTreeViewTestCollapseRow a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
TreeViewTestCollapseRowCallback
-> m (GClosure C_TreeViewTestCollapseRowCallback)
genClosure_TreeViewTestExpandRow 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 TreeViewTestCollapseRowCallback
_cb Ptr ()
_ Ptr TreeIter
iter Ptr TreePath
path Ptr ()
_ = 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
$ \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
$ \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 :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> TreeViewTestCollapseRowCallback -> m SignalHandlerId
onTreeViewTestExpandRow a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> TreeViewTestCollapseRowCallback -> m SignalHandlerId
afterTreeViewTestExpandRow a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
TreeViewSelectAllCallback
-> m (GClosure C_TreeViewSelectAllCallback)
genClosure_TreeViewToggleCursorRow 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 TreeViewSelectAllCallback
_cb Ptr ()
_ Ptr ()
_ = 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 :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> TreeViewSelectAllCallback -> m SignalHandlerId
onTreeViewToggleCursorRow a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> TreeViewSelectAllCallback -> m SignalHandlerId
afterTreeViewToggleCursorRow a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
TreeViewSelectAllCallback
-> m (GClosure C_TreeViewSelectAllCallback)
genClosure_TreeViewUnselectAll 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 TreeViewSelectAllCallback
_cb Ptr ()
_ Ptr ()
_ = 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 :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> TreeViewSelectAllCallback -> m SignalHandlerId
onTreeViewUnselectAll a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsTreeView a, MonadIO m) =>
a -> TreeViewSelectAllCallback -> m SignalHandlerId
afterTreeViewUnselectAll a
obj 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 Text
"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 :: forall (m :: * -> *) o. (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewActivateOnSingleClick o
obj = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"activate-on-single-click"
setTreeViewActivateOnSingleClick :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
setTreeViewActivateOnSingleClick :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> Bool -> m ()
setTreeViewActivateOnSingleClick o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"activate-on-single-click" Bool
val
constructTreeViewActivateOnSingleClick :: (IsTreeView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTreeViewActivateOnSingleClick :: forall o (m :: * -> *).
(IsTreeView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTreeViewActivateOnSingleClick Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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 :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> m TreeViewGridLines
getTreeViewEnableGridLines o
obj = IO TreeViewGridLines -> m TreeViewGridLines
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO TreeViewGridLines -> m TreeViewGridLines)
-> IO TreeViewGridLines -> m TreeViewGridLines
forall a b. (a -> b) -> a -> b
$ o -> String -> IO TreeViewGridLines
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"enable-grid-lines"
setTreeViewEnableGridLines :: (MonadIO m, IsTreeView o) => o -> Gtk.Enums.TreeViewGridLines -> m ()
setTreeViewEnableGridLines :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> TreeViewGridLines -> m ()
setTreeViewEnableGridLines o
obj TreeViewGridLines
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> TreeViewGridLines -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"enable-grid-lines" TreeViewGridLines
val
constructTreeViewEnableGridLines :: (IsTreeView o, MIO.MonadIO m) => Gtk.Enums.TreeViewGridLines -> m (GValueConstruct o)
constructTreeViewEnableGridLines :: forall o (m :: * -> *).
(IsTreeView o, MonadIO m) =>
TreeViewGridLines -> m (GValueConstruct o)
constructTreeViewEnableGridLines TreeViewGridLines
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> TreeViewGridLines -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"enable-grid-lines" TreeViewGridLines
val
#if defined(ENABLE_OVERLOADING)
data TreeViewEnableGridLinesPropertyInfo
instance AttrInfo TreeViewEnableGridLinesPropertyInfo where
type AttrAllowedOps TreeViewEnableGridLinesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewEnableGridLinesPropertyInfo = IsTreeView
type AttrSetTypeConstraint TreeViewEnableGridLinesPropertyInfo = (~) Gtk.Enums.TreeViewGridLines
type AttrTransferTypeConstraint TreeViewEnableGridLinesPropertyInfo = (~) Gtk.Enums.TreeViewGridLines
type AttrTransferType TreeViewEnableGridLinesPropertyInfo = Gtk.Enums.TreeViewGridLines
type AttrGetType TreeViewEnableGridLinesPropertyInfo = Gtk.Enums.TreeViewGridLines
type AttrLabel TreeViewEnableGridLinesPropertyInfo = "enable-grid-lines"
type AttrOrigin TreeViewEnableGridLinesPropertyInfo = TreeView
attrGet = getTreeViewEnableGridLines
attrSet = setTreeViewEnableGridLines
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewEnableGridLines
attrClear = undefined
#endif
getTreeViewEnableSearch :: (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewEnableSearch :: forall (m :: * -> *) o. (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewEnableSearch o
obj = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-search"
setTreeViewEnableSearch :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
setTreeViewEnableSearch :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> Bool -> m ()
setTreeViewEnableSearch o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-search" Bool
val
constructTreeViewEnableSearch :: (IsTreeView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTreeViewEnableSearch :: forall o (m :: * -> *).
(IsTreeView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTreeViewEnableSearch Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"enable-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 :: forall (m :: * -> *) o. (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewEnableTreeLines o
obj = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-tree-lines"
setTreeViewEnableTreeLines :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
setTreeViewEnableTreeLines :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> Bool -> m ()
setTreeViewEnableTreeLines o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-tree-lines" Bool
val
constructTreeViewEnableTreeLines :: (IsTreeView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTreeViewEnableTreeLines :: forall o (m :: * -> *).
(IsTreeView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTreeViewEnableTreeLines Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"enable-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 :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> m TreeViewColumn
getTreeViewExpanderColumn o
obj = IO TreeViewColumn -> m TreeViewColumn
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 Text
"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 String
"expander-column" ManagedPtr TreeViewColumn -> TreeViewColumn
Gtk.TreeViewColumn.TreeViewColumn
setTreeViewExpanderColumn :: (MonadIO m, IsTreeView o, Gtk.TreeViewColumn.IsTreeViewColumn a) => o -> a -> m ()
setTreeViewExpanderColumn :: forall (m :: * -> *) o a.
(MonadIO m, IsTreeView o, IsTreeViewColumn a) =>
o -> a -> m ()
setTreeViewExpanderColumn o
obj a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"expander-column" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructTreeViewExpanderColumn :: (IsTreeView o, MIO.MonadIO m, Gtk.TreeViewColumn.IsTreeViewColumn a) => a -> m (GValueConstruct o)
constructTreeViewExpanderColumn :: forall o (m :: * -> *) a.
(IsTreeView o, MonadIO m, IsTreeViewColumn a) =>
a -> m (GValueConstruct o)
constructTreeViewExpanderColumn a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"expander-column" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearTreeViewExpanderColumn :: (MonadIO m, IsTreeView o) => o -> m ()
clearTreeViewExpanderColumn :: forall (m :: * -> *) o. (MonadIO m, IsTreeView o) => o -> m ()
clearTreeViewExpanderColumn o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe TreeViewColumn -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"expander-column" (Maybe TreeViewColumn
forall a. Maybe a
Nothing :: Maybe Gtk.TreeViewColumn.TreeViewColumn)
#if defined(ENABLE_OVERLOADING)
data TreeViewExpanderColumnPropertyInfo
instance AttrInfo TreeViewExpanderColumnPropertyInfo where
type AttrAllowedOps TreeViewExpanderColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TreeViewExpanderColumnPropertyInfo = IsTreeView
type AttrSetTypeConstraint TreeViewExpanderColumnPropertyInfo = Gtk.TreeViewColumn.IsTreeViewColumn
type AttrTransferTypeConstraint TreeViewExpanderColumnPropertyInfo = Gtk.TreeViewColumn.IsTreeViewColumn
type AttrTransferType TreeViewExpanderColumnPropertyInfo = Gtk.TreeViewColumn.TreeViewColumn
type AttrGetType TreeViewExpanderColumnPropertyInfo = 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 :: forall (m :: * -> *) o. (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewFixedHeightMode o
obj = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"fixed-height-mode"
setTreeViewFixedHeightMode :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
setTreeViewFixedHeightMode :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> Bool -> m ()
setTreeViewFixedHeightMode o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"fixed-height-mode" Bool
val
constructTreeViewFixedHeightMode :: (IsTreeView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTreeViewFixedHeightMode :: forall o (m :: * -> *).
(IsTreeView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTreeViewFixedHeightMode Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
o
obj = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"headers-clickable"
setTreeViewHeadersClickable :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"headers-clickable" Bool
val
constructTreeViewHeadersClickable :: (IsTreeView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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
o
obj = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"headers-visible"
setTreeViewHeadersVisible :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"headers-visible" Bool
val
constructTreeViewHeadersVisible :: (IsTreeView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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 :: forall (m :: * -> *) o. (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewHoverExpand o
obj = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"hover-expand"
setTreeViewHoverExpand :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
setTreeViewHoverExpand :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> Bool -> m ()
setTreeViewHoverExpand o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"hover-expand" Bool
val
constructTreeViewHoverExpand :: (IsTreeView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTreeViewHoverExpand :: forall o (m :: * -> *).
(IsTreeView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTreeViewHoverExpand Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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 :: forall (m :: * -> *) o. (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewHoverSelection o
obj = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"hover-selection"
setTreeViewHoverSelection :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
setTreeViewHoverSelection :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> Bool -> m ()
setTreeViewHoverSelection o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"hover-selection" Bool
val
constructTreeViewHoverSelection :: (IsTreeView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTreeViewHoverSelection :: forall o (m :: * -> *).
(IsTreeView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTreeViewHoverSelection Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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 :: forall (m :: * -> *) o. (MonadIO m, IsTreeView o) => o -> m Int32
getTreeViewLevelIndentation o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"level-indentation"
setTreeViewLevelIndentation :: (MonadIO m, IsTreeView o) => o -> Int32 -> m ()
setTreeViewLevelIndentation :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> Int32 -> m ()
setTreeViewLevelIndentation o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"level-indentation" Int32
val
constructTreeViewLevelIndentation :: (IsTreeView o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructTreeViewLevelIndentation :: forall o (m :: * -> *).
(IsTreeView o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructTreeViewLevelIndentation Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"level-indentation" Int32
val
#if defined(ENABLE_OVERLOADING)
data TreeViewLevelIndentationPropertyInfo
instance AttrInfo TreeViewLevelIndentationPropertyInfo where
type AttrAllowedOps TreeViewLevelIndentationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewLevelIndentationPropertyInfo = IsTreeView
type AttrSetTypeConstraint TreeViewLevelIndentationPropertyInfo = (~) Int32
type AttrTransferTypeConstraint TreeViewLevelIndentationPropertyInfo = (~) Int32
type AttrTransferType TreeViewLevelIndentationPropertyInfo = Int32
type AttrGetType TreeViewLevelIndentationPropertyInfo = Int32
type AttrLabel TreeViewLevelIndentationPropertyInfo = "level-indentation"
type AttrOrigin TreeViewLevelIndentationPropertyInfo = TreeView
attrGet = getTreeViewLevelIndentation
attrSet = setTreeViewLevelIndentation
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewLevelIndentation
attrClear = undefined
#endif
getTreeViewModel :: (MonadIO m, IsTreeView o) => o -> m (Maybe Gtk.TreeModel.TreeModel)
getTreeViewModel :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> m (Maybe TreeModel)
getTreeViewModel o
obj = IO (Maybe TreeModel) -> m (Maybe TreeModel)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe TreeModel) -> m (Maybe TreeModel))
-> IO (Maybe TreeModel) -> m (Maybe TreeModel)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr TreeModel -> TreeModel)
-> IO (Maybe TreeModel)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"model" ManagedPtr TreeModel -> TreeModel
Gtk.TreeModel.TreeModel
setTreeViewModel :: (MonadIO m, IsTreeView o, Gtk.TreeModel.IsTreeModel a) => o -> a -> m ()
setTreeViewModel :: forall (m :: * -> *) o a.
(MonadIO m, IsTreeView o, IsTreeModel a) =>
o -> a -> m ()
setTreeViewModel o
obj a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"model" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructTreeViewModel :: (IsTreeView o, MIO.MonadIO m, Gtk.TreeModel.IsTreeModel a) => a -> m (GValueConstruct o)
constructTreeViewModel :: forall o (m :: * -> *) a.
(IsTreeView o, MonadIO m, IsTreeModel a) =>
a -> m (GValueConstruct o)
constructTreeViewModel a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"model" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearTreeViewModel :: (MonadIO m, IsTreeView o) => o -> m ()
clearTreeViewModel :: forall (m :: * -> *) o. (MonadIO m, IsTreeView o) => o -> m ()
clearTreeViewModel 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 String
"model" (Maybe TreeModel
forall a. Maybe a
Nothing :: Maybe Gtk.TreeModel.TreeModel)
#if defined(ENABLE_OVERLOADING)
data TreeViewModelPropertyInfo
instance AttrInfo TreeViewModelPropertyInfo where
type AttrAllowedOps TreeViewModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TreeViewModelPropertyInfo = IsTreeView
type AttrSetTypeConstraint TreeViewModelPropertyInfo = Gtk.TreeModel.IsTreeModel
type AttrTransferTypeConstraint TreeViewModelPropertyInfo = Gtk.TreeModel.IsTreeModel
type AttrTransferType TreeViewModelPropertyInfo = Gtk.TreeModel.TreeModel
type AttrGetType TreeViewModelPropertyInfo = (Maybe Gtk.TreeModel.TreeModel)
type AttrLabel TreeViewModelPropertyInfo = "model"
type AttrOrigin TreeViewModelPropertyInfo = TreeView
attrGet = getTreeViewModel
attrSet = setTreeViewModel
attrTransfer _ v = do
unsafeCastTo Gtk.TreeModel.TreeModel v
attrConstruct = constructTreeViewModel
attrClear = clearTreeViewModel
#endif
getTreeViewReorderable :: (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewReorderable :: forall (m :: * -> *) o. (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewReorderable o
obj = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"reorderable"
setTreeViewReorderable :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
setTreeViewReorderable :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> Bool -> m ()
setTreeViewReorderable o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"reorderable" Bool
val
constructTreeViewReorderable :: (IsTreeView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTreeViewReorderable :: forall o (m :: * -> *).
(IsTreeView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTreeViewReorderable Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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 :: forall (m :: * -> *) o. (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewRubberBanding o
obj = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"rubber-banding"
setTreeViewRubberBanding :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
setTreeViewRubberBanding :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> Bool -> m ()
setTreeViewRubberBanding o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"rubber-banding" Bool
val
constructTreeViewRubberBanding :: (IsTreeView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTreeViewRubberBanding :: forall o (m :: * -> *).
(IsTreeView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTreeViewRubberBanding Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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 :: forall (m :: * -> *) o. (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewRulesHint o
obj = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"rules-hint"
setTreeViewRulesHint :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
setTreeViewRulesHint :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> Bool -> m ()
setTreeViewRulesHint o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"rules-hint" Bool
val
constructTreeViewRulesHint :: (IsTreeView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTreeViewRulesHint :: forall o (m :: * -> *).
(IsTreeView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTreeViewRulesHint Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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 :: forall (m :: * -> *) o. (MonadIO m, IsTreeView o) => o -> m Int32
getTreeViewSearchColumn o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"search-column"
setTreeViewSearchColumn :: (MonadIO m, IsTreeView o) => o -> Int32 -> m ()
setTreeViewSearchColumn :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> Int32 -> m ()
setTreeViewSearchColumn o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"search-column" Int32
val
constructTreeViewSearchColumn :: (IsTreeView o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructTreeViewSearchColumn :: forall o (m :: * -> *).
(IsTreeView o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructTreeViewSearchColumn Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"search-column" Int32
val
#if defined(ENABLE_OVERLOADING)
data TreeViewSearchColumnPropertyInfo
instance AttrInfo TreeViewSearchColumnPropertyInfo where
type AttrAllowedOps TreeViewSearchColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewSearchColumnPropertyInfo = IsTreeView
type AttrSetTypeConstraint TreeViewSearchColumnPropertyInfo = (~) Int32
type AttrTransferTypeConstraint TreeViewSearchColumnPropertyInfo = (~) Int32
type AttrTransferType TreeViewSearchColumnPropertyInfo = Int32
type AttrGetType TreeViewSearchColumnPropertyInfo = Int32
type AttrLabel TreeViewSearchColumnPropertyInfo = "search-column"
type AttrOrigin TreeViewSearchColumnPropertyInfo = TreeView
attrGet = getTreeViewSearchColumn
attrSet = setTreeViewSearchColumn
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewSearchColumn
attrClear = undefined
#endif
getTreeViewShowExpanders :: (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewShowExpanders :: forall (m :: * -> *) o. (MonadIO m, IsTreeView o) => o -> m Bool
getTreeViewShowExpanders o
obj = TreeViewSelectAllCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"show-expanders"
setTreeViewShowExpanders :: (MonadIO m, IsTreeView o) => o -> Bool -> m ()
setTreeViewShowExpanders :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> Bool -> m ()
setTreeViewShowExpanders o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"show-expanders" Bool
val
constructTreeViewShowExpanders :: (IsTreeView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTreeViewShowExpanders :: forall o (m :: * -> *).
(IsTreeView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTreeViewShowExpanders Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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 :: forall (m :: * -> *) o. (MonadIO m, IsTreeView o) => o -> m Int32
getTreeViewTooltipColumn o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"tooltip-column"
setTreeViewTooltipColumn :: (MonadIO m, IsTreeView o) => o -> Int32 -> m ()
setTreeViewTooltipColumn :: forall (m :: * -> *) o.
(MonadIO m, IsTreeView o) =>
o -> Int32 -> m ()
setTreeViewTooltipColumn o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"tooltip-column" Int32
val
constructTreeViewTooltipColumn :: (IsTreeView o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructTreeViewTooltipColumn :: forall o (m :: * -> *).
(IsTreeView o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructTreeViewTooltipColumn Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"tooltip-column" Int32
val
#if defined(ENABLE_OVERLOADING)
data TreeViewTooltipColumnPropertyInfo
instance AttrInfo TreeViewTooltipColumnPropertyInfo where
type AttrAllowedOps TreeViewTooltipColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewTooltipColumnPropertyInfo = IsTreeView
type AttrSetTypeConstraint TreeViewTooltipColumnPropertyInfo = (~) Int32
type AttrTransferTypeConstraint TreeViewTooltipColumnPropertyInfo = (~) Int32
type AttrTransferType TreeViewTooltipColumnPropertyInfo = Int32
type AttrGetType TreeViewTooltipColumnPropertyInfo = Int32
type AttrLabel TreeViewTooltipColumnPropertyInfo = "tooltip-column"
type AttrOrigin TreeViewTooltipColumnPropertyInfo = TreeView
attrGet = getTreeViewTooltipColumn
attrSet = setTreeViewTooltipColumn
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewTooltipColumn
attrClear = undefined
#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 :: forall (m :: * -> *). (HasCallStack, MonadIO m) => 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 Text
"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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeModel a) =>
a -> m TreeView
treeViewNewWithModel 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 Text
"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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeView a, IsTreeViewColumn b) =>
a -> b -> m Int32
treeViewAppendColumn a
treeView b
column = IO Int32 -> m Int32
forall (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.OverloadedMethod TreeViewAppendColumnMethodInfo a signature where
overloadedMethod = treeViewAppendColumn
instance O.OverloadedMethodInfo TreeViewAppendColumnMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewAppendColumn",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewAppendColumn"
}
#endif
foreign import ccall "gtk_tree_view_collapse_all" gtk_tree_view_collapse_all ::
Ptr TreeView ->
IO ()
treeViewCollapseAll ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m ()
treeViewCollapseAll :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m ()
treeViewCollapseAll a
treeView = IO () -> m ()
forall (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.OverloadedMethod TreeViewCollapseAllMethodInfo a signature where
overloadedMethod = treeViewCollapseAll
instance O.OverloadedMethodInfo TreeViewCollapseAllMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewCollapseAll",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewCollapseAll"
}
#endif
foreign import ccall "gtk_tree_view_collapse_row" gtk_tree_view_collapse_row ::
Ptr TreeView ->
Ptr Gtk.TreePath.TreePath ->
IO CInt
treeViewCollapseRow ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Gtk.TreePath.TreePath
-> m Bool
treeViewCollapseRow :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> TreePath -> m Bool
treeViewCollapseRow a
treeView TreePath
path = 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
/= CInt
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.OverloadedMethod TreeViewCollapseRowMethodInfo a signature where
overloadedMethod = treeViewCollapseRow
instance O.OverloadedMethodInfo TreeViewCollapseRowMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewCollapseRow",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewCollapseRow"
}
#endif
foreign import ccall "gtk_tree_view_columns_autosize" gtk_tree_view_columns_autosize ::
Ptr TreeView ->
IO ()
treeViewColumnsAutosize ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m ()
treeViewColumnsAutosize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m ()
treeViewColumnsAutosize a
treeView = IO () -> m ()
forall (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.OverloadedMethod TreeViewColumnsAutosizeMethodInfo a signature where
overloadedMethod = treeViewColumnsAutosize
instance O.OverloadedMethodInfo TreeViewColumnsAutosizeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewColumnsAutosize",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewColumnsAutosize"
}
#endif
foreign import ccall "gtk_tree_view_convert_bin_window_to_tree_coords" gtk_tree_view_convert_bin_window_to_tree_coords ::
Ptr TreeView ->
Int32 ->
Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
treeViewConvertBinWindowToTreeCoords ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m ((Int32, Int32))
treeViewConvertBinWindowToTreeCoords :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Int32 -> Int32 -> m (Int32, Int32)
treeViewConvertBinWindowToTreeCoords a
treeView Int32
bx Int32
by = IO (Int32, Int32) -> m (Int32, Int32)
forall (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.OverloadedMethod TreeViewConvertBinWindowToTreeCoordsMethodInfo a signature where
overloadedMethod = treeViewConvertBinWindowToTreeCoords
instance O.OverloadedMethodInfo TreeViewConvertBinWindowToTreeCoordsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewConvertBinWindowToTreeCoords",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewConvertBinWindowToTreeCoords"
}
#endif
foreign import ccall "gtk_tree_view_convert_bin_window_to_widget_coords" gtk_tree_view_convert_bin_window_to_widget_coords ::
Ptr TreeView ->
Int32 ->
Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
treeViewConvertBinWindowToWidgetCoords ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m ((Int32, Int32))
treeViewConvertBinWindowToWidgetCoords :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Int32 -> Int32 -> m (Int32, Int32)
treeViewConvertBinWindowToWidgetCoords a
treeView Int32
bx Int32
by = IO (Int32, Int32) -> m (Int32, Int32)
forall (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.OverloadedMethod TreeViewConvertBinWindowToWidgetCoordsMethodInfo a signature where
overloadedMethod = treeViewConvertBinWindowToWidgetCoords
instance O.OverloadedMethodInfo TreeViewConvertBinWindowToWidgetCoordsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewConvertBinWindowToWidgetCoords",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewConvertBinWindowToWidgetCoords"
}
#endif
foreign import ccall "gtk_tree_view_convert_tree_to_bin_window_coords" gtk_tree_view_convert_tree_to_bin_window_coords ::
Ptr TreeView ->
Int32 ->
Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
treeViewConvertTreeToBinWindowCoords ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m ((Int32, Int32))
treeViewConvertTreeToBinWindowCoords :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Int32 -> Int32 -> m (Int32, Int32)
treeViewConvertTreeToBinWindowCoords a
treeView Int32
tx Int32
ty = IO (Int32, Int32) -> m (Int32, Int32)
forall (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.OverloadedMethod TreeViewConvertTreeToBinWindowCoordsMethodInfo a signature where
overloadedMethod = treeViewConvertTreeToBinWindowCoords
instance O.OverloadedMethodInfo TreeViewConvertTreeToBinWindowCoordsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewConvertTreeToBinWindowCoords",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewConvertTreeToBinWindowCoords"
}
#endif
foreign import ccall "gtk_tree_view_convert_tree_to_widget_coords" gtk_tree_view_convert_tree_to_widget_coords ::
Ptr TreeView ->
Int32 ->
Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
treeViewConvertTreeToWidgetCoords ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m ((Int32, Int32))
treeViewConvertTreeToWidgetCoords :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Int32 -> Int32 -> m (Int32, Int32)
treeViewConvertTreeToWidgetCoords a
treeView Int32
tx Int32
ty = IO (Int32, Int32) -> m (Int32, Int32)
forall (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.OverloadedMethod TreeViewConvertTreeToWidgetCoordsMethodInfo a signature where
overloadedMethod = treeViewConvertTreeToWidgetCoords
instance O.OverloadedMethodInfo TreeViewConvertTreeToWidgetCoordsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewConvertTreeToWidgetCoords",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewConvertTreeToWidgetCoords"
}
#endif
foreign import ccall "gtk_tree_view_convert_widget_to_bin_window_coords" gtk_tree_view_convert_widget_to_bin_window_coords ::
Ptr TreeView ->
Int32 ->
Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
treeViewConvertWidgetToBinWindowCoords ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m ((Int32, Int32))
treeViewConvertWidgetToBinWindowCoords :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Int32 -> Int32 -> m (Int32, Int32)
treeViewConvertWidgetToBinWindowCoords a
treeView Int32
wx Int32
wy = IO (Int32, Int32) -> m (Int32, Int32)
forall (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.OverloadedMethod TreeViewConvertWidgetToBinWindowCoordsMethodInfo a signature where
overloadedMethod = treeViewConvertWidgetToBinWindowCoords
instance O.OverloadedMethodInfo TreeViewConvertWidgetToBinWindowCoordsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewConvertWidgetToBinWindowCoords",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewConvertWidgetToBinWindowCoords"
}
#endif
foreign import ccall "gtk_tree_view_convert_widget_to_tree_coords" gtk_tree_view_convert_widget_to_tree_coords ::
Ptr TreeView ->
Int32 ->
Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
treeViewConvertWidgetToTreeCoords ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m ((Int32, Int32))
treeViewConvertWidgetToTreeCoords :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Int32 -> Int32 -> m (Int32, Int32)
treeViewConvertWidgetToTreeCoords a
treeView Int32
wx Int32
wy = IO (Int32, Int32) -> m (Int32, Int32)
forall (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.OverloadedMethod TreeViewConvertWidgetToTreeCoordsMethodInfo a signature where
overloadedMethod = treeViewConvertWidgetToTreeCoords
instance O.OverloadedMethodInfo TreeViewConvertWidgetToTreeCoordsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewConvertWidgetToTreeCoords",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewConvertWidgetToTreeCoords"
}
#endif
foreign import ccall "gtk_tree_view_create_row_drag_icon" gtk_tree_view_create_row_drag_icon ::
Ptr TreeView ->
Ptr Gtk.TreePath.TreePath ->
IO (Ptr Cairo.Surface.Surface)
treeViewCreateRowDragIcon ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Gtk.TreePath.TreePath
-> m Cairo.Surface.Surface
treeViewCreateRowDragIcon :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> TreePath -> m Surface
treeViewCreateRowDragIcon a
treeView 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 Text
"treeViewCreateRowDragIcon" Ptr Surface
result
Surface
result' <- ((ManagedPtr Surface -> Surface) -> Ptr Surface -> IO Surface
forall a.
(HasCallStack, GBoxed 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.OverloadedMethod TreeViewCreateRowDragIconMethodInfo a signature where
overloadedMethod = treeViewCreateRowDragIcon
instance O.OverloadedMethodInfo TreeViewCreateRowDragIconMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewCreateRowDragIcon",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewCreateRowDragIcon"
}
#endif
foreign import ccall "gtk_tree_view_enable_model_drag_dest" gtk_tree_view_enable_model_drag_dest ::
Ptr TreeView ->
Ptr Gtk.TargetEntry.TargetEntry ->
Int32 ->
CUInt ->
IO ()
treeViewEnableModelDragDest ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> [Gtk.TargetEntry.TargetEntry]
-> [Gdk.Flags.DragAction]
-> m ()
treeViewEnableModelDragDest :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> [TargetEntry] -> [DragAction] -> m ()
treeViewEnableModelDragDest a
treeView [TargetEntry]
targets [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
P.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 Int
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.OverloadedMethod TreeViewEnableModelDragDestMethodInfo a signature where
overloadedMethod = treeViewEnableModelDragDest
instance O.OverloadedMethodInfo TreeViewEnableModelDragDestMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewEnableModelDragDest",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewEnableModelDragDest"
}
#endif
foreign import ccall "gtk_tree_view_enable_model_drag_source" gtk_tree_view_enable_model_drag_source ::
Ptr TreeView ->
CUInt ->
Ptr 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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> [ModifierType] -> [TargetEntry] -> [DragAction] -> m ()
treeViewEnableModelDragSource a
treeView [ModifierType]
startButtonMask [TargetEntry]
targets [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
P.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 Int
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.OverloadedMethod TreeViewEnableModelDragSourceMethodInfo a signature where
overloadedMethod = treeViewEnableModelDragSource
instance O.OverloadedMethodInfo TreeViewEnableModelDragSourceMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewEnableModelDragSource",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewEnableModelDragSource"
}
#endif
foreign import ccall "gtk_tree_view_expand_all" gtk_tree_view_expand_all ::
Ptr TreeView ->
IO ()
treeViewExpandAll ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m ()
treeViewExpandAll :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m ()
treeViewExpandAll a
treeView = IO () -> m ()
forall (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.OverloadedMethod TreeViewExpandAllMethodInfo a signature where
overloadedMethod = treeViewExpandAll
instance O.OverloadedMethodInfo TreeViewExpandAllMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewExpandAll",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewExpandAll"
}
#endif
foreign import ccall "gtk_tree_view_expand_row" gtk_tree_view_expand_row ::
Ptr TreeView ->
Ptr Gtk.TreePath.TreePath ->
CInt ->
IO CInt
treeViewExpandRow ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Gtk.TreePath.TreePath
-> Bool
-> m Bool
treeViewExpandRow :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> TreePath -> Bool -> m Bool
treeViewExpandRow a
treeView TreePath
path Bool
openAll = 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
/= CInt
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.OverloadedMethod TreeViewExpandRowMethodInfo a signature where
overloadedMethod = treeViewExpandRow
instance O.OverloadedMethodInfo TreeViewExpandRowMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewExpandRow",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewExpandRow"
}
#endif
foreign import ccall "gtk_tree_view_expand_to_path" gtk_tree_view_expand_to_path ::
Ptr TreeView ->
Ptr Gtk.TreePath.TreePath ->
IO ()
treeViewExpandToPath ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Gtk.TreePath.TreePath
-> m ()
treeViewExpandToPath :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> TreePath -> m ()
treeViewExpandToPath a
treeView TreePath
path = IO () -> m ()
forall (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.OverloadedMethod TreeViewExpandToPathMethodInfo a signature where
overloadedMethod = treeViewExpandToPath
instance O.OverloadedMethodInfo TreeViewExpandToPathMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewExpandToPath",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewExpandToPath"
}
#endif
foreign import ccall "gtk_tree_view_get_activate_on_single_click" gtk_tree_view_get_activate_on_single_click ::
Ptr TreeView ->
IO CInt
treeViewGetActivateOnSingleClick ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeViewGetActivateOnSingleClick :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Bool
treeViewGetActivateOnSingleClick a
treeView = 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
/= CInt
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.OverloadedMethod TreeViewGetActivateOnSingleClickMethodInfo a signature where
overloadedMethod = treeViewGetActivateOnSingleClick
instance O.OverloadedMethodInfo TreeViewGetActivateOnSingleClickMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetActivateOnSingleClick",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetActivateOnSingleClick"
}
#endif
foreign import ccall "gtk_tree_view_get_background_area" gtk_tree_view_get_background_area ::
Ptr TreeView ->
Ptr Gtk.TreePath.TreePath ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
Ptr Gdk.Rectangle.Rectangle ->
IO ()
treeViewGetBackgroundArea ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) =>
a
-> Maybe (Gtk.TreePath.TreePath)
-> Maybe (b)
-> m (Gdk.Rectangle.Rectangle)
treeViewGetBackgroundArea :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeView a, IsTreeViewColumn b) =>
a -> Maybe TreePath -> Maybe b -> m Rectangle
treeViewGetBackgroundArea a
treeView Maybe TreePath
path Maybe b
column = IO Rectangle -> m Rectangle
forall (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
Maybe TreePath
Nothing -> Ptr TreePath -> IO (Ptr TreePath)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreePath
forall a. Ptr a
nullPtr
Just 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
Maybe b
Nothing -> Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
forall a. Ptr a
nullPtr
Just 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. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
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, GBoxed 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.OverloadedMethod TreeViewGetBackgroundAreaMethodInfo a signature where
overloadedMethod = treeViewGetBackgroundArea
instance O.OverloadedMethodInfo TreeViewGetBackgroundAreaMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetBackgroundArea",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m (Maybe Window)
treeViewGetBinWindow 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
$ \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.OverloadedMethod TreeViewGetBinWindowMethodInfo a signature where
overloadedMethod = treeViewGetBinWindow
instance O.OverloadedMethodInfo TreeViewGetBinWindowMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetBinWindow",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeView a, IsTreeViewColumn b) =>
a -> Maybe TreePath -> Maybe b -> m Rectangle
treeViewGetCellArea a
treeView Maybe TreePath
path Maybe b
column = IO Rectangle -> m Rectangle
forall (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
Maybe TreePath
Nothing -> Ptr TreePath -> IO (Ptr TreePath)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreePath
forall a. Ptr a
nullPtr
Just 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
Maybe b
Nothing -> Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
forall a. Ptr a
nullPtr
Just 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. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
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, GBoxed 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.OverloadedMethod TreeViewGetCellAreaMethodInfo a signature where
overloadedMethod = treeViewGetCellArea
instance O.OverloadedMethodInfo TreeViewGetCellAreaMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetCellArea",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetCellArea"
}
#endif
foreign import ccall "gtk_tree_view_get_column" gtk_tree_view_get_column ::
Ptr TreeView ->
Int32 ->
IO (Ptr Gtk.TreeViewColumn.TreeViewColumn)
treeViewGetColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> m (Maybe Gtk.TreeViewColumn.TreeViewColumn)
treeViewGetColumn :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Int32 -> m (Maybe TreeViewColumn)
treeViewGetColumn a
treeView Int32
n = IO (Maybe TreeViewColumn) -> m (Maybe TreeViewColumn)
forall (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
$ \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.OverloadedMethod TreeViewGetColumnMethodInfo a signature where
overloadedMethod = treeViewGetColumn
instance O.OverloadedMethodInfo TreeViewGetColumnMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetColumn",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetColumn"
}
#endif
foreign import ccall "gtk_tree_view_get_columns" gtk_tree_view_get_columns ::
Ptr TreeView ->
IO (Ptr (GList (Ptr Gtk.TreeViewColumn.TreeViewColumn)))
treeViewGetColumns ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m [Gtk.TreeViewColumn.TreeViewColumn]
treeViewGetColumns :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m [TreeViewColumn]
treeViewGetColumns a
treeView = IO [TreeViewColumn] -> m [TreeViewColumn]
forall (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.OverloadedMethod TreeViewGetColumnsMethodInfo a signature where
overloadedMethod = treeViewGetColumns
instance O.OverloadedMethodInfo TreeViewGetColumnsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetColumns",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetColumns"
}
#endif
foreign import ccall "gtk_tree_view_get_cursor" gtk_tree_view_get_cursor ::
Ptr TreeView ->
Ptr (Ptr Gtk.TreePath.TreePath) ->
Ptr (Ptr Gtk.TreeViewColumn.TreeViewColumn) ->
IO ()
treeViewGetCursor ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m ((Maybe Gtk.TreePath.TreePath, Maybe Gtk.TreeViewColumn.TreeViewColumn))
treeViewGetCursor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m (Maybe TreePath, Maybe TreeViewColumn)
treeViewGetCursor a
treeView = IO (Maybe TreePath, Maybe TreeViewColumn)
-> m (Maybe TreePath, Maybe TreeViewColumn)
forall (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)
callocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
Ptr (Ptr TreeViewColumn)
focusColumn <- IO (Ptr (Ptr TreeViewColumn))
forall a. Storable a => IO (Ptr a)
callocMem :: 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
$ \Ptr TreePath
path'' -> do
TreePath
path''' <- ((ManagedPtr TreePath -> TreePath) -> Ptr TreePath -> IO TreePath
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath) Ptr TreePath
path''
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
$ \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.OverloadedMethod TreeViewGetCursorMethodInfo a signature where
overloadedMethod = treeViewGetCursor
instance O.OverloadedMethodInfo TreeViewGetCursorMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetCursor",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetCursor"
}
#endif
foreign import ccall "gtk_tree_view_get_dest_row_at_pos" gtk_tree_view_get_dest_row_at_pos ::
Ptr TreeView ->
Int32 ->
Int32 ->
Ptr (Ptr Gtk.TreePath.TreePath) ->
Ptr CUInt ->
IO CInt
treeViewGetDestRowAtPos ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m ((Bool, Maybe Gtk.TreePath.TreePath, Gtk.Enums.TreeViewDropPosition))
treeViewGetDestRowAtPos :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32 -> Int32 -> m (Bool, Maybe TreePath, TreeViewDropPosition)
treeViewGetDestRowAtPos a
treeView Int32
dragX Int32
dragY = IO (Bool, Maybe TreePath, TreeViewDropPosition)
-> m (Bool, Maybe TreePath, TreeViewDropPosition)
forall (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)
callocMem :: 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
/= CInt
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
$ \Ptr TreePath
path'' -> do
TreePath
path''' <- ((ManagedPtr TreePath -> TreePath) -> Ptr TreePath -> IO TreePath
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath) Ptr TreePath
path''
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.OverloadedMethod TreeViewGetDestRowAtPosMethodInfo a signature where
overloadedMethod = treeViewGetDestRowAtPos
instance O.OverloadedMethodInfo TreeViewGetDestRowAtPosMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetDestRowAtPos",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetDestRowAtPos"
}
#endif
foreign import ccall "gtk_tree_view_get_drag_dest_row" gtk_tree_view_get_drag_dest_row ::
Ptr TreeView ->
Ptr (Ptr Gtk.TreePath.TreePath) ->
Ptr CUInt ->
IO ()
treeViewGetDragDestRow ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m ((Maybe Gtk.TreePath.TreePath, Gtk.Enums.TreeViewDropPosition))
treeViewGetDragDestRow :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m (Maybe TreePath, TreeViewDropPosition)
treeViewGetDragDestRow a
treeView = IO (Maybe TreePath, TreeViewDropPosition)
-> m (Maybe TreePath, TreeViewDropPosition)
forall (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)
callocMem :: 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
$ \Ptr TreePath
path'' -> do
TreePath
path''' <- ((ManagedPtr TreePath -> TreePath) -> Ptr TreePath -> IO TreePath
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath) Ptr TreePath
path''
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.OverloadedMethod TreeViewGetDragDestRowMethodInfo a signature where
overloadedMethod = treeViewGetDragDestRow
instance O.OverloadedMethodInfo TreeViewGetDragDestRowMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetDragDestRow",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetDragDestRow"
}
#endif
foreign import ccall "gtk_tree_view_get_enable_search" gtk_tree_view_get_enable_search ::
Ptr TreeView ->
IO CInt
treeViewGetEnableSearch ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeViewGetEnableSearch :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Bool
treeViewGetEnableSearch a
treeView = 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
/= CInt
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.OverloadedMethod TreeViewGetEnableSearchMethodInfo a signature where
overloadedMethod = treeViewGetEnableSearch
instance O.OverloadedMethodInfo TreeViewGetEnableSearchMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetEnableSearch",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetEnableSearch"
}
#endif
foreign import ccall "gtk_tree_view_get_enable_tree_lines" gtk_tree_view_get_enable_tree_lines ::
Ptr TreeView ->
IO CInt
treeViewGetEnableTreeLines ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeViewGetEnableTreeLines :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Bool
treeViewGetEnableTreeLines a
treeView = 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
/= CInt
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.OverloadedMethod TreeViewGetEnableTreeLinesMethodInfo a signature where
overloadedMethod = treeViewGetEnableTreeLines
instance O.OverloadedMethodInfo TreeViewGetEnableTreeLinesMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetEnableTreeLines",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetEnableTreeLines"
}
#endif
foreign import ccall "gtk_tree_view_get_expander_column" gtk_tree_view_get_expander_column ::
Ptr TreeView ->
IO (Ptr Gtk.TreeViewColumn.TreeViewColumn)
treeViewGetExpanderColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Gtk.TreeViewColumn.TreeViewColumn
treeViewGetExpanderColumn :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m TreeViewColumn
treeViewGetExpanderColumn 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 Text
"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.OverloadedMethod TreeViewGetExpanderColumnMethodInfo a signature where
overloadedMethod = treeViewGetExpanderColumn
instance O.OverloadedMethodInfo TreeViewGetExpanderColumnMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetExpanderColumn",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetExpanderColumn"
}
#endif
foreign import ccall "gtk_tree_view_get_fixed_height_mode" gtk_tree_view_get_fixed_height_mode ::
Ptr TreeView ->
IO CInt
treeViewGetFixedHeightMode ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeViewGetFixedHeightMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Bool
treeViewGetFixedHeightMode a
treeView = 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
/= CInt
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.OverloadedMethod TreeViewGetFixedHeightModeMethodInfo a signature where
overloadedMethod = treeViewGetFixedHeightMode
instance O.OverloadedMethodInfo TreeViewGetFixedHeightModeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetFixedHeightMode",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetFixedHeightMode"
}
#endif
foreign import ccall "gtk_tree_view_get_grid_lines" gtk_tree_view_get_grid_lines ::
Ptr TreeView ->
IO CUInt
treeViewGetGridLines ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Gtk.Enums.TreeViewGridLines
treeViewGetGridLines :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m TreeViewGridLines
treeViewGetGridLines a
treeView = IO TreeViewGridLines -> m TreeViewGridLines
forall (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.OverloadedMethod TreeViewGetGridLinesMethodInfo a signature where
overloadedMethod = treeViewGetGridLines
instance O.OverloadedMethodInfo TreeViewGetGridLinesMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetGridLines",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Adjustment
treeViewGetHadjustment 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 Text
"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.OverloadedMethod TreeViewGetHadjustmentMethodInfo a signature where
overloadedMethod = treeViewGetHadjustment
instance O.OverloadedMethodInfo TreeViewGetHadjustmentMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetHadjustment",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v: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
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
/= CInt
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.OverloadedMethod TreeViewGetHeadersClickableMethodInfo a signature where
overloadedMethod = treeViewGetHeadersClickable
instance O.OverloadedMethodInfo TreeViewGetHeadersClickableMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetHeadersClickable",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v: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
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
/= CInt
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.OverloadedMethod TreeViewGetHeadersVisibleMethodInfo a signature where
overloadedMethod = treeViewGetHeadersVisible
instance O.OverloadedMethodInfo TreeViewGetHeadersVisibleMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetHeadersVisible",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetHeadersVisible"
}
#endif
foreign import ccall "gtk_tree_view_get_hover_expand" gtk_tree_view_get_hover_expand ::
Ptr TreeView ->
IO CInt
treeViewGetHoverExpand ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeViewGetHoverExpand :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Bool
treeViewGetHoverExpand a
treeView = 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
/= CInt
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.OverloadedMethod TreeViewGetHoverExpandMethodInfo a signature where
overloadedMethod = treeViewGetHoverExpand
instance O.OverloadedMethodInfo TreeViewGetHoverExpandMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetHoverExpand",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetHoverExpand"
}
#endif
foreign import ccall "gtk_tree_view_get_hover_selection" gtk_tree_view_get_hover_selection ::
Ptr TreeView ->
IO CInt
treeViewGetHoverSelection ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeViewGetHoverSelection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Bool
treeViewGetHoverSelection a
treeView = 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
/= CInt
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.OverloadedMethod TreeViewGetHoverSelectionMethodInfo a signature where
overloadedMethod = treeViewGetHoverSelection
instance O.OverloadedMethodInfo TreeViewGetHoverSelectionMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetHoverSelection",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetHoverSelection"
}
#endif
foreign import ccall "gtk_tree_view_get_level_indentation" gtk_tree_view_get_level_indentation ::
Ptr TreeView ->
IO Int32
treeViewGetLevelIndentation ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Int32
treeViewGetLevelIndentation :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Int32
treeViewGetLevelIndentation a
treeView = IO Int32 -> m Int32
forall (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.OverloadedMethod TreeViewGetLevelIndentationMethodInfo a signature where
overloadedMethod = treeViewGetLevelIndentation
instance O.OverloadedMethodInfo TreeViewGetLevelIndentationMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetLevelIndentation",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetLevelIndentation"
}
#endif
foreign import ccall "gtk_tree_view_get_model" gtk_tree_view_get_model ::
Ptr TreeView ->
IO (Ptr Gtk.TreeModel.TreeModel)
treeViewGetModel ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m (Maybe Gtk.TreeModel.TreeModel)
treeViewGetModel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m (Maybe TreeModel)
treeViewGetModel a
treeView = IO (Maybe TreeModel) -> m (Maybe TreeModel)
forall (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
$ \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.OverloadedMethod TreeViewGetModelMethodInfo a signature where
overloadedMethod = treeViewGetModel
instance O.OverloadedMethodInfo TreeViewGetModelMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetModel",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetModel"
}
#endif
foreign import ccall "gtk_tree_view_get_n_columns" gtk_tree_view_get_n_columns ::
Ptr TreeView ->
IO Word32
treeViewGetNColumns ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Word32
treeViewGetNColumns :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Word32
treeViewGetNColumns a
treeView = IO Word32 -> m Word32
forall (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.OverloadedMethod TreeViewGetNColumnsMethodInfo a signature where
overloadedMethod = treeViewGetNColumns
instance O.OverloadedMethodInfo TreeViewGetNColumnsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetNColumns",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetNColumns"
}
#endif
foreign import ccall "gtk_tree_view_get_path_at_pos" gtk_tree_view_get_path_at_pos ::
Ptr TreeView ->
Int32 ->
Int32 ->
Ptr (Ptr Gtk.TreePath.TreePath) ->
Ptr (Ptr Gtk.TreeViewColumn.TreeViewColumn) ->
Ptr Int32 ->
Ptr Int32 ->
IO CInt
treeViewGetPathAtPos ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m ((Bool, Maybe Gtk.TreePath.TreePath, Maybe Gtk.TreeViewColumn.TreeViewColumn, Int32, Int32))
treeViewGetPathAtPos :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m (Bool, Maybe TreePath, Maybe TreeViewColumn, Int32, Int32)
treeViewGetPathAtPos a
treeView Int32
x Int32
y = IO (Bool, Maybe TreePath, Maybe TreeViewColumn, Int32, Int32)
-> m (Bool, Maybe TreePath, Maybe TreeViewColumn, Int32, Int32)
forall (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)
callocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
Ptr (Ptr TreeViewColumn)
column <- IO (Ptr (Ptr TreeViewColumn))
forall a. Storable a => IO (Ptr a)
callocMem :: 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
/= CInt
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
$ \Ptr TreePath
path'' -> do
TreePath
path''' <- ((ManagedPtr TreePath -> TreePath) -> Ptr TreePath -> IO TreePath
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath) Ptr TreePath
path''
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
$ \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.OverloadedMethod TreeViewGetPathAtPosMethodInfo a signature where
overloadedMethod = treeViewGetPathAtPos
instance O.OverloadedMethodInfo TreeViewGetPathAtPosMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetPathAtPos",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetPathAtPos"
}
#endif
foreign import ccall "gtk_tree_view_get_reorderable" gtk_tree_view_get_reorderable ::
Ptr TreeView ->
IO CInt
treeViewGetReorderable ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeViewGetReorderable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Bool
treeViewGetReorderable a
treeView = 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
/= CInt
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.OverloadedMethod TreeViewGetReorderableMethodInfo a signature where
overloadedMethod = treeViewGetReorderable
instance O.OverloadedMethodInfo TreeViewGetReorderableMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetReorderable",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetReorderable"
}
#endif
foreign import ccall "gtk_tree_view_get_rubber_banding" gtk_tree_view_get_rubber_banding ::
Ptr TreeView ->
IO CInt
treeViewGetRubberBanding ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeViewGetRubberBanding :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Bool
treeViewGetRubberBanding a
treeView = 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
/= CInt
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.OverloadedMethod TreeViewGetRubberBandingMethodInfo a signature where
overloadedMethod = treeViewGetRubberBanding
instance O.OverloadedMethodInfo TreeViewGetRubberBandingMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetRubberBanding",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Bool
treeViewGetRulesHint 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
/= CInt
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.OverloadedMethod TreeViewGetRulesHintMethodInfo a signature where
overloadedMethod = treeViewGetRulesHint
instance O.OverloadedMethodInfo TreeViewGetRulesHintMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetRulesHint",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Int32
treeViewGetSearchColumn 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.OverloadedMethod TreeViewGetSearchColumnMethodInfo a signature where
overloadedMethod = treeViewGetSearchColumn
instance O.OverloadedMethodInfo TreeViewGetSearchColumnMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetSearchColumn",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetSearchColumn"
}
#endif
foreign import ccall "gtk_tree_view_get_search_entry" gtk_tree_view_get_search_entry ::
Ptr TreeView ->
IO (Ptr Gtk.Entry.Entry)
treeViewGetSearchEntry ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Gtk.Entry.Entry
treeViewGetSearchEntry :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Entry
treeViewGetSearchEntry 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 Text
"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.OverloadedMethod TreeViewGetSearchEntryMethodInfo a signature where
overloadedMethod = treeViewGetSearchEntry
instance O.OverloadedMethodInfo TreeViewGetSearchEntryMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetSearchEntry",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetSearchEntry"
}
#endif
foreign import ccall "gtk_tree_view_get_selection" gtk_tree_view_get_selection ::
Ptr TreeView ->
IO (Ptr Gtk.TreeSelection.TreeSelection)
treeViewGetSelection ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Gtk.TreeSelection.TreeSelection
treeViewGetSelection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m TreeSelection
treeViewGetSelection a
treeView = IO TreeSelection -> m TreeSelection
forall (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 Text
"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.OverloadedMethod TreeViewGetSelectionMethodInfo a signature where
overloadedMethod = treeViewGetSelection
instance O.OverloadedMethodInfo TreeViewGetSelectionMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetSelection",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetSelection"
}
#endif
foreign import ccall "gtk_tree_view_get_show_expanders" gtk_tree_view_get_show_expanders ::
Ptr TreeView ->
IO CInt
treeViewGetShowExpanders ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeViewGetShowExpanders :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Bool
treeViewGetShowExpanders a
treeView = 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
/= CInt
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.OverloadedMethod TreeViewGetShowExpandersMethodInfo a signature where
overloadedMethod = treeViewGetShowExpanders
instance O.OverloadedMethodInfo TreeViewGetShowExpandersMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetShowExpanders",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetShowExpanders"
}
#endif
foreign import ccall "gtk_tree_view_get_tooltip_column" gtk_tree_view_get_tooltip_column ::
Ptr TreeView ->
IO Int32
treeViewGetTooltipColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Int32
treeViewGetTooltipColumn :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Int32
treeViewGetTooltipColumn a
treeView = IO Int32 -> m Int32
forall (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.OverloadedMethod TreeViewGetTooltipColumnMethodInfo a signature where
overloadedMethod = treeViewGetTooltipColumn
instance O.OverloadedMethodInfo TreeViewGetTooltipColumnMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetTooltipColumn",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetTooltipColumn"
}
#endif
foreign import ccall "gtk_tree_view_get_tooltip_context" gtk_tree_view_get_tooltip_context ::
Ptr TreeView ->
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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> Bool
-> m (Bool, Int32, Int32, Maybe TreeModel, TreePath, TreeIter)
treeViewGetTooltipContext a
treeView Int32
x Int32
y 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)
callocMem :: IO (Ptr (Ptr Gtk.TreeModel.TreeModel))
Ptr (Ptr TreePath)
path <- IO (Ptr (Ptr TreePath))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
Ptr TreeIter
iter <- Int -> IO (Ptr TreeIter)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
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
/= CInt
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
$ \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, GBoxed 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, GBoxed 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.OverloadedMethod TreeViewGetTooltipContextMethodInfo a signature where
overloadedMethod = treeViewGetTooltipContext
instance O.OverloadedMethodInfo TreeViewGetTooltipContextMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetTooltipContext",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Adjustment
treeViewGetVadjustment 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 Text
"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.OverloadedMethod TreeViewGetVadjustmentMethodInfo a signature where
overloadedMethod = treeViewGetVadjustment
instance O.OverloadedMethodInfo TreeViewGetVadjustmentMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetVadjustment",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m (Bool, TreePath, TreePath)
treeViewGetVisibleRange a
treeView = IO (Bool, TreePath, TreePath) -> m (Bool, TreePath, TreePath)
forall (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)
callocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
Ptr (Ptr TreePath)
endPath <- IO (Ptr (Ptr TreePath))
forall a. Storable a => IO (Ptr a)
callocMem :: 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
/= CInt
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, GBoxed 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, GBoxed 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.OverloadedMethod TreeViewGetVisibleRangeMethodInfo a signature where
overloadedMethod = treeViewGetVisibleRange
instance O.OverloadedMethodInfo TreeViewGetVisibleRangeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetVisibleRange",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetVisibleRange"
}
#endif
foreign import ccall "gtk_tree_view_get_visible_rect" gtk_tree_view_get_visible_rect ::
Ptr TreeView ->
Ptr Gdk.Rectangle.Rectangle ->
IO ()
treeViewGetVisibleRect ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m (Gdk.Rectangle.Rectangle)
treeViewGetVisibleRect :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Rectangle
treeViewGetVisibleRect a
treeView = IO Rectangle -> m Rectangle
forall (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. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
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, GBoxed 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.OverloadedMethod TreeViewGetVisibleRectMethodInfo a signature where
overloadedMethod = treeViewGetVisibleRect
instance O.OverloadedMethodInfo TreeViewGetVisibleRectMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewGetVisibleRect",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewGetVisibleRect"
}
#endif
foreign import ccall "gtk_tree_view_insert_column" gtk_tree_view_insert_column ::
Ptr TreeView ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
Int32 ->
IO Int32
treeViewInsertColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) =>
a
-> b
-> Int32
-> m Int32
treeViewInsertColumn :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeView a, IsTreeViewColumn b) =>
a -> b -> Int32 -> m Int32
treeViewInsertColumn a
treeView b
column Int32
position = IO Int32 -> m Int32
forall (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.OverloadedMethod TreeViewInsertColumnMethodInfo a signature where
overloadedMethod = treeViewInsertColumn
instance O.OverloadedMethodInfo TreeViewInsertColumnMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewInsertColumn",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewInsertColumn"
}
#endif
foreign import ccall "gtk_tree_view_insert_column_with_data_func" gtk_tree_view_insert_column_with_data_func ::
Ptr TreeView ->
Int32 ->
CString ->
Ptr Gtk.CellRenderer.CellRenderer ->
FunPtr Gtk.Callbacks.C_TreeCellDataFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO Int32
treeViewInsertColumnWithDataFunc ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> Int32
-> T.Text
-> b
-> Gtk.Callbacks.TreeCellDataFunc
-> m Int32
treeViewInsertColumnWithDataFunc :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeView a, IsCellRenderer b) =>
a -> Int32 -> Text -> b -> TreeCellDataFunc -> m Int32
treeViewInsertColumnWithDataFunc a
treeView Int32
position Text
title b
cell TreeCellDataFunc
func = IO Int32 -> m Int32
forall (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 ())
SP.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.OverloadedMethod TreeViewInsertColumnWithDataFuncMethodInfo a signature where
overloadedMethod = treeViewInsertColumnWithDataFunc
instance O.OverloadedMethodInfo TreeViewInsertColumnWithDataFuncMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewInsertColumnWithDataFunc",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewInsertColumnWithDataFunc"
}
#endif
foreign import ccall "gtk_tree_view_is_blank_at_pos" gtk_tree_view_is_blank_at_pos ::
Ptr TreeView ->
Int32 ->
Int32 ->
Ptr (Ptr Gtk.TreePath.TreePath) ->
Ptr (Ptr Gtk.TreeViewColumn.TreeViewColumn) ->
Ptr Int32 ->
Ptr Int32 ->
IO CInt
treeViewIsBlankAtPos ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m ((Bool, Maybe Gtk.TreePath.TreePath, Maybe Gtk.TreeViewColumn.TreeViewColumn, Int32, Int32))
treeViewIsBlankAtPos :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m (Bool, Maybe TreePath, Maybe TreeViewColumn, Int32, Int32)
treeViewIsBlankAtPos a
treeView Int32
x Int32
y = IO (Bool, Maybe TreePath, Maybe TreeViewColumn, Int32, Int32)
-> m (Bool, Maybe TreePath, Maybe TreeViewColumn, Int32, Int32)
forall (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)
callocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
Ptr (Ptr TreeViewColumn)
column <- IO (Ptr (Ptr TreeViewColumn))
forall a. Storable a => IO (Ptr a)
callocMem :: 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
/= CInt
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
$ \Ptr TreePath
path'' -> do
TreePath
path''' <- ((ManagedPtr TreePath -> TreePath) -> Ptr TreePath -> IO TreePath
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath) Ptr TreePath
path''
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
$ \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.OverloadedMethod TreeViewIsBlankAtPosMethodInfo a signature where
overloadedMethod = treeViewIsBlankAtPos
instance O.OverloadedMethodInfo TreeViewIsBlankAtPosMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewIsBlankAtPos",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewIsBlankAtPos"
}
#endif
foreign import ccall "gtk_tree_view_is_rubber_banding_active" gtk_tree_view_is_rubber_banding_active ::
Ptr TreeView ->
IO CInt
treeViewIsRubberBandingActive ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m Bool
treeViewIsRubberBandingActive :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m Bool
treeViewIsRubberBandingActive a
treeView = 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
/= CInt
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.OverloadedMethod TreeViewIsRubberBandingActiveMethodInfo a signature where
overloadedMethod = treeViewIsRubberBandingActive
instance O.OverloadedMethodInfo TreeViewIsRubberBandingActiveMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewIsRubberBandingActive",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewIsRubberBandingActive"
}
#endif
foreign import ccall "gtk_tree_view_map_expanded_rows" gtk_tree_view_map_expanded_rows ::
Ptr TreeView ->
FunPtr Gtk.Callbacks.C_TreeViewMappingFunc ->
Ptr () ->
IO ()
treeViewMapExpandedRows ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Gtk.Callbacks.TreeViewMappingFunc
-> m ()
treeViewMapExpandedRows :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> TreeViewMappingFunc -> m ()
treeViewMapExpandedRows a
treeView TreeViewMappingFunc
func = IO () -> m ()
forall (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.OverloadedMethod TreeViewMapExpandedRowsMethodInfo a signature where
overloadedMethod = treeViewMapExpandedRows
instance O.OverloadedMethodInfo TreeViewMapExpandedRowsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewMapExpandedRows",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewMapExpandedRows"
}
#endif
foreign import ccall "gtk_tree_view_move_column_after" gtk_tree_view_move_column_after ::
Ptr TreeView ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
IO ()
treeViewMoveColumnAfter ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b, Gtk.TreeViewColumn.IsTreeViewColumn c) =>
a
-> b
-> Maybe (c)
-> m ()
treeViewMoveColumnAfter :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsTreeView a, IsTreeViewColumn b,
IsTreeViewColumn c) =>
a -> b -> Maybe c -> m ()
treeViewMoveColumnAfter a
treeView b
column Maybe c
baseColumn = IO () -> m ()
forall (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
Maybe c
Nothing -> Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
forall a. Ptr a
nullPtr
Just 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.OverloadedMethod TreeViewMoveColumnAfterMethodInfo a signature where
overloadedMethod = treeViewMoveColumnAfter
instance O.OverloadedMethodInfo TreeViewMoveColumnAfterMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewMoveColumnAfter",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewMoveColumnAfter"
}
#endif
foreign import ccall "gtk_tree_view_remove_column" gtk_tree_view_remove_column ::
Ptr TreeView ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
IO Int32
treeViewRemoveColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) =>
a
-> b
-> m Int32
treeViewRemoveColumn :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeView a, IsTreeViewColumn b) =>
a -> b -> m Int32
treeViewRemoveColumn a
treeView b
column = IO Int32 -> m Int32
forall (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.OverloadedMethod TreeViewRemoveColumnMethodInfo a signature where
overloadedMethod = treeViewRemoveColumn
instance O.OverloadedMethodInfo TreeViewRemoveColumnMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewRemoveColumn",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewRemoveColumn"
}
#endif
foreign import ccall "gtk_tree_view_row_activated" gtk_tree_view_row_activated ::
Ptr TreeView ->
Ptr Gtk.TreePath.TreePath ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
IO ()
treeViewRowActivated ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) =>
a
-> Gtk.TreePath.TreePath
-> b
-> m ()
treeViewRowActivated :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeView a, IsTreeViewColumn b) =>
a -> TreePath -> b -> m ()
treeViewRowActivated a
treeView TreePath
path 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.OverloadedMethod TreeViewRowActivatedMethodInfo a signature where
overloadedMethod = treeViewRowActivated
instance O.OverloadedMethodInfo TreeViewRowActivatedMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewRowActivated",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewRowActivated"
}
#endif
foreign import ccall "gtk_tree_view_row_expanded" gtk_tree_view_row_expanded ::
Ptr TreeView ->
Ptr Gtk.TreePath.TreePath ->
IO CInt
treeViewRowExpanded ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Gtk.TreePath.TreePath
-> m Bool
treeViewRowExpanded :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> TreePath -> m Bool
treeViewRowExpanded a
treeView TreePath
path = 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
/= CInt
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.OverloadedMethod TreeViewRowExpandedMethodInfo a signature where
overloadedMethod = treeViewRowExpanded
instance O.OverloadedMethodInfo TreeViewRowExpandedMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewRowExpanded",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewRowExpanded"
}
#endif
foreign import ccall "gtk_tree_view_scroll_to_cell" gtk_tree_view_scroll_to_cell ::
Ptr TreeView ->
Ptr Gtk.TreePath.TreePath ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
CInt ->
CFloat ->
CFloat ->
IO ()
treeViewScrollToCell ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) =>
a
-> Maybe (Gtk.TreePath.TreePath)
-> Maybe (b)
-> Bool
-> Float
-> Float
-> m ()
treeViewScrollToCell :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeView a, IsTreeViewColumn b) =>
a -> Maybe TreePath -> Maybe b -> Bool -> Float -> Float -> m ()
treeViewScrollToCell a
treeView Maybe TreePath
path Maybe b
column Bool
useAlign Float
rowAlign Float
colAlign = IO () -> m ()
forall (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
Maybe TreePath
Nothing -> Ptr TreePath -> IO (Ptr TreePath)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreePath
forall a. Ptr a
nullPtr
Just 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
Maybe b
Nothing -> Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
forall a. Ptr a
nullPtr
Just 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.OverloadedMethod TreeViewScrollToCellMethodInfo a signature where
overloadedMethod = treeViewScrollToCell
instance O.OverloadedMethodInfo TreeViewScrollToCellMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewScrollToCell",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewScrollToCell"
}
#endif
foreign import ccall "gtk_tree_view_scroll_to_point" gtk_tree_view_scroll_to_point ::
Ptr TreeView ->
Int32 ->
Int32 ->
IO ()
treeViewScrollToPoint ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> Int32
-> m ()
treeViewScrollToPoint :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Int32 -> Int32 -> m ()
treeViewScrollToPoint a
treeView Int32
treeX Int32
treeY = IO () -> m ()
forall (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.OverloadedMethod TreeViewScrollToPointMethodInfo a signature where
overloadedMethod = treeViewScrollToPoint
instance O.OverloadedMethodInfo TreeViewScrollToPointMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewScrollToPoint",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewScrollToPoint"
}
#endif
foreign import ccall "gtk_tree_view_set_activate_on_single_click" gtk_tree_view_set_activate_on_single_click ::
Ptr TreeView ->
CInt ->
IO ()
treeViewSetActivateOnSingleClick ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Bool
-> m ()
treeViewSetActivateOnSingleClick :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Bool -> m ()
treeViewSetActivateOnSingleClick a
treeView Bool
single = IO () -> m ()
forall (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.OverloadedMethod TreeViewSetActivateOnSingleClickMethodInfo a signature where
overloadedMethod = treeViewSetActivateOnSingleClick
instance O.OverloadedMethodInfo TreeViewSetActivateOnSingleClickMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewSetActivateOnSingleClick",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetActivateOnSingleClick"
}
#endif
foreign import ccall "gtk_tree_view_set_column_drag_function" gtk_tree_view_set_column_drag_function ::
Ptr TreeView ->
FunPtr Gtk.Callbacks.C_TreeViewColumnDropFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
treeViewSetColumnDragFunction ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Maybe (Gtk.Callbacks.TreeViewColumnDropFunc)
-> m ()
treeViewSetColumnDragFunction :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Maybe TreeViewColumnDropFunc -> m ()
treeViewSetColumnDragFunction a
treeView Maybe TreeViewColumnDropFunc
func = IO () -> m ()
forall (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
Maybe TreeViewColumnDropFunc
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 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 ())
SP.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.OverloadedMethod TreeViewSetColumnDragFunctionMethodInfo a signature where
overloadedMethod = treeViewSetColumnDragFunction
instance O.OverloadedMethodInfo TreeViewSetColumnDragFunctionMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewSetColumnDragFunction",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetColumnDragFunction"
}
#endif
foreign import ccall "gtk_tree_view_set_cursor" gtk_tree_view_set_cursor ::
Ptr TreeView ->
Ptr Gtk.TreePath.TreePath ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
CInt ->
IO ()
treeViewSetCursor ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) =>
a
-> Gtk.TreePath.TreePath
-> Maybe (b)
-> Bool
-> m ()
treeViewSetCursor :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeView a, IsTreeViewColumn b) =>
a -> TreePath -> Maybe b -> Bool -> m ()
treeViewSetCursor a
treeView TreePath
path Maybe b
focusColumn Bool
startEditing = IO () -> m ()
forall (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
Maybe b
Nothing -> Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
forall a. Ptr a
nullPtr
Just 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.OverloadedMethod TreeViewSetCursorMethodInfo a signature where
overloadedMethod = treeViewSetCursor
instance O.OverloadedMethodInfo TreeViewSetCursorMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewSetCursor",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetCursor"
}
#endif
foreign import ccall "gtk_tree_view_set_cursor_on_cell" gtk_tree_view_set_cursor_on_cell ::
Ptr TreeView ->
Ptr Gtk.TreePath.TreePath ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
Ptr Gtk.CellRenderer.CellRenderer ->
CInt ->
IO ()
treeViewSetCursorOnCell ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b, Gtk.CellRenderer.IsCellRenderer c) =>
a
-> Gtk.TreePath.TreePath
-> Maybe (b)
-> Maybe (c)
-> Bool
-> m ()
treeViewSetCursorOnCell :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsTreeView a, IsTreeViewColumn b,
IsCellRenderer c) =>
a -> TreePath -> Maybe b -> Maybe c -> Bool -> m ()
treeViewSetCursorOnCell a
treeView TreePath
path Maybe b
focusColumn Maybe c
focusCell Bool
startEditing = IO () -> m ()
forall (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
Maybe b
Nothing -> Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
forall a. Ptr a
nullPtr
Just 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
Maybe c
Nothing -> Ptr CellRenderer -> IO (Ptr CellRenderer)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CellRenderer
forall a. Ptr a
nullPtr
Just 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.OverloadedMethod TreeViewSetCursorOnCellMethodInfo a signature where
overloadedMethod = treeViewSetCursorOnCell
instance O.OverloadedMethodInfo TreeViewSetCursorOnCellMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewSetCursorOnCell",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Maybe TreeDestroyCountFunc -> m ()
treeViewSetDestroyCountFunc a
treeView 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
Maybe TreeDestroyCountFunc
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 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 ())
SP.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.OverloadedMethod TreeViewSetDestroyCountFuncMethodInfo a signature where
overloadedMethod = treeViewSetDestroyCountFunc
instance O.OverloadedMethodInfo TreeViewSetDestroyCountFuncMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewSetDestroyCountFunc",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Maybe TreePath -> TreeViewDropPosition -> m ()
treeViewSetDragDestRow a
treeView Maybe TreePath
path 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
Maybe TreePath
Nothing -> Ptr TreePath -> IO (Ptr TreePath)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreePath
forall a. Ptr a
nullPtr
Just 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.OverloadedMethod TreeViewSetDragDestRowMethodInfo a signature where
overloadedMethod = treeViewSetDragDestRow
instance O.OverloadedMethodInfo TreeViewSetDragDestRowMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewSetDragDestRow",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetDragDestRow"
}
#endif
foreign import ccall "gtk_tree_view_set_enable_search" gtk_tree_view_set_enable_search ::
Ptr TreeView ->
CInt ->
IO ()
treeViewSetEnableSearch ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Bool
-> m ()
treeViewSetEnableSearch :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Bool -> m ()
treeViewSetEnableSearch a
treeView Bool
enableSearch = IO () -> m ()
forall (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.OverloadedMethod TreeViewSetEnableSearchMethodInfo a signature where
overloadedMethod = treeViewSetEnableSearch
instance O.OverloadedMethodInfo TreeViewSetEnableSearchMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewSetEnableSearch",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetEnableSearch"
}
#endif
foreign import ccall "gtk_tree_view_set_enable_tree_lines" gtk_tree_view_set_enable_tree_lines ::
Ptr TreeView ->
CInt ->
IO ()
treeViewSetEnableTreeLines ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Bool
-> m ()
treeViewSetEnableTreeLines :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Bool -> m ()
treeViewSetEnableTreeLines a
treeView Bool
enabled = IO () -> m ()
forall (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.OverloadedMethod TreeViewSetEnableTreeLinesMethodInfo a signature where
overloadedMethod = treeViewSetEnableTreeLines
instance O.OverloadedMethodInfo TreeViewSetEnableTreeLinesMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewSetEnableTreeLines",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetEnableTreeLines"
}
#endif
foreign import ccall "gtk_tree_view_set_expander_column" gtk_tree_view_set_expander_column ::
Ptr TreeView ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
IO ()
treeViewSetExpanderColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeViewColumn.IsTreeViewColumn b) =>
a
-> Maybe (b)
-> m ()
treeViewSetExpanderColumn :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeView a, IsTreeViewColumn b) =>
a -> Maybe b -> m ()
treeViewSetExpanderColumn a
treeView Maybe b
column = IO () -> m ()
forall (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
Maybe b
Nothing -> Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
forall a. Ptr a
nullPtr
Just 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.OverloadedMethod TreeViewSetExpanderColumnMethodInfo a signature where
overloadedMethod = treeViewSetExpanderColumn
instance O.OverloadedMethodInfo TreeViewSetExpanderColumnMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewSetExpanderColumn",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetExpanderColumn"
}
#endif
foreign import ccall "gtk_tree_view_set_fixed_height_mode" gtk_tree_view_set_fixed_height_mode ::
Ptr TreeView ->
CInt ->
IO ()
treeViewSetFixedHeightMode ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Bool
-> m ()
treeViewSetFixedHeightMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Bool -> m ()
treeViewSetFixedHeightMode a
treeView Bool
enable = IO () -> m ()
forall (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.OverloadedMethod TreeViewSetFixedHeightModeMethodInfo a signature where
overloadedMethod = treeViewSetFixedHeightMode
instance O.OverloadedMethodInfo TreeViewSetFixedHeightModeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewSetFixedHeightMode",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetFixedHeightMode"
}
#endif
foreign import ccall "gtk_tree_view_set_grid_lines" gtk_tree_view_set_grid_lines ::
Ptr TreeView ->
CUInt ->
IO ()
treeViewSetGridLines ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Gtk.Enums.TreeViewGridLines
-> m ()
treeViewSetGridLines :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> TreeViewGridLines -> m ()
treeViewSetGridLines a
treeView TreeViewGridLines
gridLines = IO () -> m ()
forall (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.OverloadedMethod TreeViewSetGridLinesMethodInfo a signature where
overloadedMethod = treeViewSetGridLines
instance O.OverloadedMethodInfo TreeViewSetGridLinesMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewSetGridLines",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeView a, IsAdjustment b) =>
a -> Maybe b -> m ()
treeViewSetHadjustment a
treeView 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
Maybe b
Nothing -> Ptr Adjustment -> IO (Ptr Adjustment)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Adjustment
forall a. Ptr a
nullPtr
Just 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.OverloadedMethod TreeViewSetHadjustmentMethodInfo a signature where
overloadedMethod = treeViewSetHadjustment
instance O.OverloadedMethodInfo TreeViewSetHadjustmentMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewSetHadjustment",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v: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 ()
a
treeView 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.OverloadedMethod TreeViewSetHeadersClickableMethodInfo a signature where
overloadedMethod = treeViewSetHeadersClickable
instance O.OverloadedMethodInfo TreeViewSetHeadersClickableMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewSetHeadersClickable",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v: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 ()
a
treeView 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.OverloadedMethod TreeViewSetHeadersVisibleMethodInfo a signature where
overloadedMethod = treeViewSetHeadersVisible
instance O.OverloadedMethodInfo TreeViewSetHeadersVisibleMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewSetHeadersVisible",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetHeadersVisible"
}
#endif
foreign import ccall "gtk_tree_view_set_hover_expand" gtk_tree_view_set_hover_expand ::
Ptr TreeView ->
CInt ->
IO ()
treeViewSetHoverExpand ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Bool
-> m ()
treeViewSetHoverExpand :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Bool -> m ()
treeViewSetHoverExpand a
treeView Bool
expand = IO () -> m ()
forall (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.OverloadedMethod TreeViewSetHoverExpandMethodInfo a signature where
overloadedMethod = treeViewSetHoverExpand
instance O.OverloadedMethodInfo TreeViewSetHoverExpandMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewSetHoverExpand",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetHoverExpand"
}
#endif
foreign import ccall "gtk_tree_view_set_hover_selection" gtk_tree_view_set_hover_selection ::
Ptr TreeView ->
CInt ->
IO ()
treeViewSetHoverSelection ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Bool
-> m ()
treeViewSetHoverSelection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Bool -> m ()
treeViewSetHoverSelection a
treeView Bool
hover = IO () -> m ()
forall (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.OverloadedMethod TreeViewSetHoverSelectionMethodInfo a signature where
overloadedMethod = treeViewSetHoverSelection
instance O.OverloadedMethodInfo TreeViewSetHoverSelectionMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewSetHoverSelection",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetHoverSelection"
}
#endif
foreign import ccall "gtk_tree_view_set_level_indentation" gtk_tree_view_set_level_indentation ::
Ptr TreeView ->
Int32 ->
IO ()
treeViewSetLevelIndentation ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> m ()
treeViewSetLevelIndentation :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Int32 -> m ()
treeViewSetLevelIndentation a
treeView Int32
indentation = IO () -> m ()
forall (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.OverloadedMethod TreeViewSetLevelIndentationMethodInfo a signature where
overloadedMethod = treeViewSetLevelIndentation
instance O.OverloadedMethodInfo TreeViewSetLevelIndentationMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewSetLevelIndentation",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetLevelIndentation"
}
#endif
foreign import ccall "gtk_tree_view_set_model" gtk_tree_view_set_model ::
Ptr TreeView ->
Ptr Gtk.TreeModel.TreeModel ->
IO ()
treeViewSetModel ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.TreeModel.IsTreeModel b) =>
a
-> Maybe (b)
-> m ()
treeViewSetModel :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeView a, IsTreeModel b) =>
a -> Maybe b -> m ()
treeViewSetModel a
treeView Maybe b
model = IO () -> m ()
forall (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
Maybe b
Nothing -> Ptr TreeModel -> IO (Ptr TreeModel)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeModel
forall a. Ptr a
nullPtr
Just 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.OverloadedMethod TreeViewSetModelMethodInfo a signature where
overloadedMethod = treeViewSetModel
instance O.OverloadedMethodInfo TreeViewSetModelMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewSetModel",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetModel"
}
#endif
foreign import ccall "gtk_tree_view_set_reorderable" gtk_tree_view_set_reorderable ::
Ptr TreeView ->
CInt ->
IO ()
treeViewSetReorderable ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Bool
-> m ()
treeViewSetReorderable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Bool -> m ()
treeViewSetReorderable a
treeView Bool
reorderable = IO () -> m ()
forall (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.OverloadedMethod TreeViewSetReorderableMethodInfo a signature where
overloadedMethod = treeViewSetReorderable
instance O.OverloadedMethodInfo TreeViewSetReorderableMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewSetReorderable",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetReorderable"
}
#endif
foreign import ccall "gtk_tree_view_set_row_separator_func" gtk_tree_view_set_row_separator_func ::
Ptr TreeView ->
FunPtr Gtk.Callbacks.C_TreeViewRowSeparatorFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
treeViewSetRowSeparatorFunc ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Maybe (Gtk.Callbacks.TreeViewRowSeparatorFunc)
-> m ()
treeViewSetRowSeparatorFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Maybe TreeViewRowSeparatorFunc -> m ()
treeViewSetRowSeparatorFunc a
treeView Maybe TreeViewRowSeparatorFunc
func = IO () -> m ()
forall (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
Maybe TreeViewRowSeparatorFunc
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 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 ())
SP.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.OverloadedMethod TreeViewSetRowSeparatorFuncMethodInfo a signature where
overloadedMethod = treeViewSetRowSeparatorFunc
instance O.OverloadedMethodInfo TreeViewSetRowSeparatorFuncMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewSetRowSeparatorFunc",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetRowSeparatorFunc"
}
#endif
foreign import ccall "gtk_tree_view_set_rubber_banding" gtk_tree_view_set_rubber_banding ::
Ptr TreeView ->
CInt ->
IO ()
treeViewSetRubberBanding ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Bool
-> m ()
treeViewSetRubberBanding :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Bool -> m ()
treeViewSetRubberBanding a
treeView Bool
enable = IO () -> m ()
forall (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.OverloadedMethod TreeViewSetRubberBandingMethodInfo a signature where
overloadedMethod = treeViewSetRubberBanding
instance O.OverloadedMethodInfo TreeViewSetRubberBandingMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewSetRubberBanding",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Bool -> m ()
treeViewSetRulesHint a
treeView 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.OverloadedMethod TreeViewSetRulesHintMethodInfo a signature where
overloadedMethod = treeViewSetRulesHint
instance O.OverloadedMethodInfo TreeViewSetRulesHintMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewSetRulesHint",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Int32 -> m ()
treeViewSetSearchColumn a
treeView 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.OverloadedMethod TreeViewSetSearchColumnMethodInfo a signature where
overloadedMethod = treeViewSetSearchColumn
instance O.OverloadedMethodInfo TreeViewSetSearchColumnMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewSetSearchColumn",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetSearchColumn"
}
#endif
foreign import ccall "gtk_tree_view_set_search_entry" gtk_tree_view_set_search_entry ::
Ptr TreeView ->
Ptr Gtk.Entry.Entry ->
IO ()
treeViewSetSearchEntry ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.Entry.IsEntry b) =>
a
-> Maybe (b)
-> m ()
treeViewSetSearchEntry :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeView a, IsEntry b) =>
a -> Maybe b -> m ()
treeViewSetSearchEntry a
treeView 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
Maybe b
Nothing -> Ptr Entry -> IO (Ptr Entry)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Entry
forall a. Ptr a
nullPtr
Just 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.OverloadedMethod TreeViewSetSearchEntryMethodInfo a signature where
overloadedMethod = treeViewSetSearchEntry
instance O.OverloadedMethodInfo TreeViewSetSearchEntryMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewSetSearchEntry",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetSearchEntry"
}
#endif
foreign import ccall "gtk_tree_view_set_search_equal_func" gtk_tree_view_set_search_equal_func ::
Ptr TreeView ->
FunPtr Gtk.Callbacks.C_TreeViewSearchEqualFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
treeViewSetSearchEqualFunc ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Gtk.Callbacks.TreeViewSearchEqualFunc
-> m ()
treeViewSetSearchEqualFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> TreeViewSearchEqualFunc -> m ()
treeViewSetSearchEqualFunc a
treeView TreeViewSearchEqualFunc
searchEqualFunc = IO () -> m ()
forall (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 ())
SP.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.OverloadedMethod TreeViewSetSearchEqualFuncMethodInfo a signature where
overloadedMethod = treeViewSetSearchEqualFunc
instance O.OverloadedMethodInfo TreeViewSetSearchEqualFuncMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewSetSearchEqualFunc",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Maybe TreeViewSearchPositionFunc -> m ()
treeViewSetSearchPositionFunc a
treeView 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
Maybe TreeViewSearchPositionFunc
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 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 ())
SP.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.OverloadedMethod TreeViewSetSearchPositionFuncMethodInfo a signature where
overloadedMethod = treeViewSetSearchPositionFunc
instance O.OverloadedMethodInfo TreeViewSetSearchPositionFuncMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewSetSearchPositionFunc",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Bool -> m ()
treeViewSetShowExpanders a
treeView 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.OverloadedMethod TreeViewSetShowExpandersMethodInfo a signature where
overloadedMethod = treeViewSetShowExpanders
instance O.OverloadedMethodInfo TreeViewSetShowExpandersMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewSetShowExpanders",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetShowExpanders"
}
#endif
foreign import ccall "gtk_tree_view_set_tooltip_cell" gtk_tree_view_set_tooltip_cell ::
Ptr TreeView ->
Ptr Gtk.Tooltip.Tooltip ->
Ptr Gtk.TreePath.TreePath ->
Ptr Gtk.TreeViewColumn.TreeViewColumn ->
Ptr Gtk.CellRenderer.CellRenderer ->
IO ()
treeViewSetTooltipCell ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.Tooltip.IsTooltip b, Gtk.TreeViewColumn.IsTreeViewColumn c, Gtk.CellRenderer.IsCellRenderer d) =>
a
-> b
-> Maybe (Gtk.TreePath.TreePath)
-> Maybe (c)
-> Maybe (d)
-> m ()
treeViewSetTooltipCell :: forall (m :: * -> *) a b c d.
(HasCallStack, MonadIO m, IsTreeView a, IsTooltip b,
IsTreeViewColumn c, IsCellRenderer d) =>
a -> b -> Maybe TreePath -> Maybe c -> Maybe d -> m ()
treeViewSetTooltipCell a
treeView b
tooltip Maybe TreePath
path Maybe c
column Maybe d
cell = IO () -> m ()
forall (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
Maybe TreePath
Nothing -> Ptr TreePath -> IO (Ptr TreePath)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreePath
forall a. Ptr a
nullPtr
Just 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
Maybe c
Nothing -> Ptr TreeViewColumn -> IO (Ptr TreeViewColumn)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeViewColumn
forall a. Ptr a
nullPtr
Just 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
Maybe d
Nothing -> Ptr CellRenderer -> IO (Ptr CellRenderer)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CellRenderer
forall a. Ptr a
nullPtr
Just 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.OverloadedMethod TreeViewSetTooltipCellMethodInfo a signature where
overloadedMethod = treeViewSetTooltipCell
instance O.OverloadedMethodInfo TreeViewSetTooltipCellMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewSetTooltipCell",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetTooltipCell"
}
#endif
foreign import ccall "gtk_tree_view_set_tooltip_column" gtk_tree_view_set_tooltip_column ::
Ptr TreeView ->
Int32 ->
IO ()
treeViewSetTooltipColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> Int32
-> m ()
treeViewSetTooltipColumn :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> Int32 -> m ()
treeViewSetTooltipColumn a
treeView Int32
column = IO () -> m ()
forall (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.OverloadedMethod TreeViewSetTooltipColumnMethodInfo a signature where
overloadedMethod = treeViewSetTooltipColumn
instance O.OverloadedMethodInfo TreeViewSetTooltipColumnMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewSetTooltipColumn",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewSetTooltipColumn"
}
#endif
foreign import ccall "gtk_tree_view_set_tooltip_row" gtk_tree_view_set_tooltip_row ::
Ptr TreeView ->
Ptr Gtk.Tooltip.Tooltip ->
Ptr Gtk.TreePath.TreePath ->
IO ()
treeViewSetTooltipRow ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a, Gtk.Tooltip.IsTooltip b) =>
a
-> b
-> Gtk.TreePath.TreePath
-> m ()
treeViewSetTooltipRow :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeView a, IsTooltip b) =>
a -> b -> TreePath -> m ()
treeViewSetTooltipRow a
treeView b
tooltip TreePath
path = IO () -> m ()
forall (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.OverloadedMethod TreeViewSetTooltipRowMethodInfo a signature where
overloadedMethod = treeViewSetTooltipRow
instance O.OverloadedMethodInfo TreeViewSetTooltipRowMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewSetTooltipRow",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeView a, IsAdjustment b) =>
a -> Maybe b -> m ()
treeViewSetVadjustment a
treeView 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
Maybe b
Nothing -> Ptr Adjustment -> IO (Ptr Adjustment)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Adjustment
forall a. Ptr a
nullPtr
Just 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.OverloadedMethod TreeViewSetVadjustmentMethodInfo a signature where
overloadedMethod = treeViewSetVadjustment
instance O.OverloadedMethodInfo TreeViewSetVadjustmentMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewSetVadjustment",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m ()
treeViewUnsetRowsDragDest 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.OverloadedMethod TreeViewUnsetRowsDragDestMethodInfo a signature where
overloadedMethod = treeViewUnsetRowsDragDest
instance O.OverloadedMethodInfo TreeViewUnsetRowsDragDestMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewUnsetRowsDragDest",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewUnsetRowsDragDest"
}
#endif
foreign import ccall "gtk_tree_view_unset_rows_drag_source" gtk_tree_view_unset_rows_drag_source ::
Ptr TreeView ->
IO ()
treeViewUnsetRowsDragSource ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeView a) =>
a
-> m ()
treeViewUnsetRowsDragSource :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeView a) =>
a -> m ()
treeViewUnsetRowsDragSource a
treeView = IO () -> m ()
forall (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.OverloadedMethod TreeViewUnsetRowsDragSourceMethodInfo a signature where
overloadedMethod = treeViewUnsetRowsDragSource
instance O.OverloadedMethodInfo TreeViewUnsetRowsDragSourceMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeView.treeViewUnsetRowsDragSource",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeView.html#v:treeViewUnsetRowsDragSource"
}
#endif