#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Gtk.Objects.TreeViewColumn
(
TreeViewColumn(..) ,
IsTreeViewColumn ,
toTreeViewColumn ,
noTreeViewColumn ,
#if ENABLE_OVERLOADING
TreeViewColumnAddAttributeMethodInfo ,
#endif
treeViewColumnAddAttribute ,
#if ENABLE_OVERLOADING
TreeViewColumnCellGetPositionMethodInfo ,
#endif
treeViewColumnCellGetPosition ,
#if ENABLE_OVERLOADING
TreeViewColumnCellGetSizeMethodInfo ,
#endif
treeViewColumnCellGetSize ,
#if ENABLE_OVERLOADING
TreeViewColumnCellIsVisibleMethodInfo ,
#endif
treeViewColumnCellIsVisible ,
#if ENABLE_OVERLOADING
TreeViewColumnCellSetCellDataMethodInfo ,
#endif
treeViewColumnCellSetCellData ,
#if ENABLE_OVERLOADING
TreeViewColumnClearMethodInfo ,
#endif
treeViewColumnClear ,
#if ENABLE_OVERLOADING
TreeViewColumnClearAttributesMethodInfo ,
#endif
treeViewColumnClearAttributes ,
#if ENABLE_OVERLOADING
TreeViewColumnClickedMethodInfo ,
#endif
treeViewColumnClicked ,
#if ENABLE_OVERLOADING
TreeViewColumnFocusCellMethodInfo ,
#endif
treeViewColumnFocusCell ,
#if ENABLE_OVERLOADING
TreeViewColumnGetAlignmentMethodInfo ,
#endif
treeViewColumnGetAlignment ,
#if ENABLE_OVERLOADING
TreeViewColumnGetButtonMethodInfo ,
#endif
treeViewColumnGetButton ,
#if ENABLE_OVERLOADING
TreeViewColumnGetClickableMethodInfo ,
#endif
treeViewColumnGetClickable ,
#if ENABLE_OVERLOADING
TreeViewColumnGetExpandMethodInfo ,
#endif
treeViewColumnGetExpand ,
#if ENABLE_OVERLOADING
TreeViewColumnGetFixedWidthMethodInfo ,
#endif
treeViewColumnGetFixedWidth ,
#if ENABLE_OVERLOADING
TreeViewColumnGetMaxWidthMethodInfo ,
#endif
treeViewColumnGetMaxWidth ,
#if ENABLE_OVERLOADING
TreeViewColumnGetMinWidthMethodInfo ,
#endif
treeViewColumnGetMinWidth ,
#if ENABLE_OVERLOADING
TreeViewColumnGetReorderableMethodInfo ,
#endif
treeViewColumnGetReorderable ,
#if ENABLE_OVERLOADING
TreeViewColumnGetResizableMethodInfo ,
#endif
treeViewColumnGetResizable ,
#if ENABLE_OVERLOADING
TreeViewColumnGetSizingMethodInfo ,
#endif
treeViewColumnGetSizing ,
#if ENABLE_OVERLOADING
TreeViewColumnGetSortColumnIdMethodInfo ,
#endif
treeViewColumnGetSortColumnId ,
#if ENABLE_OVERLOADING
TreeViewColumnGetSortIndicatorMethodInfo,
#endif
treeViewColumnGetSortIndicator ,
#if ENABLE_OVERLOADING
TreeViewColumnGetSortOrderMethodInfo ,
#endif
treeViewColumnGetSortOrder ,
#if ENABLE_OVERLOADING
TreeViewColumnGetSpacingMethodInfo ,
#endif
treeViewColumnGetSpacing ,
#if ENABLE_OVERLOADING
TreeViewColumnGetTitleMethodInfo ,
#endif
treeViewColumnGetTitle ,
#if ENABLE_OVERLOADING
TreeViewColumnGetTreeViewMethodInfo ,
#endif
treeViewColumnGetTreeView ,
#if ENABLE_OVERLOADING
TreeViewColumnGetVisibleMethodInfo ,
#endif
treeViewColumnGetVisible ,
#if ENABLE_OVERLOADING
TreeViewColumnGetWidgetMethodInfo ,
#endif
treeViewColumnGetWidget ,
#if ENABLE_OVERLOADING
TreeViewColumnGetWidthMethodInfo ,
#endif
treeViewColumnGetWidth ,
#if ENABLE_OVERLOADING
TreeViewColumnGetXOffsetMethodInfo ,
#endif
treeViewColumnGetXOffset ,
treeViewColumnNew ,
treeViewColumnNewWithArea ,
#if ENABLE_OVERLOADING
TreeViewColumnPackEndMethodInfo ,
#endif
treeViewColumnPackEnd ,
#if ENABLE_OVERLOADING
TreeViewColumnPackStartMethodInfo ,
#endif
treeViewColumnPackStart ,
#if ENABLE_OVERLOADING
TreeViewColumnQueueResizeMethodInfo ,
#endif
treeViewColumnQueueResize ,
#if ENABLE_OVERLOADING
TreeViewColumnSetAlignmentMethodInfo ,
#endif
treeViewColumnSetAlignment ,
#if ENABLE_OVERLOADING
TreeViewColumnSetCellDataFuncMethodInfo ,
#endif
treeViewColumnSetCellDataFunc ,
#if ENABLE_OVERLOADING
TreeViewColumnSetClickableMethodInfo ,
#endif
treeViewColumnSetClickable ,
#if ENABLE_OVERLOADING
TreeViewColumnSetExpandMethodInfo ,
#endif
treeViewColumnSetExpand ,
#if ENABLE_OVERLOADING
TreeViewColumnSetFixedWidthMethodInfo ,
#endif
treeViewColumnSetFixedWidth ,
#if ENABLE_OVERLOADING
TreeViewColumnSetMaxWidthMethodInfo ,
#endif
treeViewColumnSetMaxWidth ,
#if ENABLE_OVERLOADING
TreeViewColumnSetMinWidthMethodInfo ,
#endif
treeViewColumnSetMinWidth ,
#if ENABLE_OVERLOADING
TreeViewColumnSetReorderableMethodInfo ,
#endif
treeViewColumnSetReorderable ,
#if ENABLE_OVERLOADING
TreeViewColumnSetResizableMethodInfo ,
#endif
treeViewColumnSetResizable ,
#if ENABLE_OVERLOADING
TreeViewColumnSetSizingMethodInfo ,
#endif
treeViewColumnSetSizing ,
#if ENABLE_OVERLOADING
TreeViewColumnSetSortColumnIdMethodInfo ,
#endif
treeViewColumnSetSortColumnId ,
#if ENABLE_OVERLOADING
TreeViewColumnSetSortIndicatorMethodInfo,
#endif
treeViewColumnSetSortIndicator ,
#if ENABLE_OVERLOADING
TreeViewColumnSetSortOrderMethodInfo ,
#endif
treeViewColumnSetSortOrder ,
#if ENABLE_OVERLOADING
TreeViewColumnSetSpacingMethodInfo ,
#endif
treeViewColumnSetSpacing ,
#if ENABLE_OVERLOADING
TreeViewColumnSetTitleMethodInfo ,
#endif
treeViewColumnSetTitle ,
#if ENABLE_OVERLOADING
TreeViewColumnSetVisibleMethodInfo ,
#endif
treeViewColumnSetVisible ,
#if ENABLE_OVERLOADING
TreeViewColumnSetWidgetMethodInfo ,
#endif
treeViewColumnSetWidget ,
#if ENABLE_OVERLOADING
TreeViewColumnAlignmentPropertyInfo ,
#endif
constructTreeViewColumnAlignment ,
getTreeViewColumnAlignment ,
setTreeViewColumnAlignment ,
#if ENABLE_OVERLOADING
treeViewColumnAlignment ,
#endif
#if ENABLE_OVERLOADING
TreeViewColumnCellAreaPropertyInfo ,
#endif
constructTreeViewColumnCellArea ,
getTreeViewColumnCellArea ,
#if ENABLE_OVERLOADING
treeViewColumnCellArea ,
#endif
#if ENABLE_OVERLOADING
TreeViewColumnClickablePropertyInfo ,
#endif
constructTreeViewColumnClickable ,
getTreeViewColumnClickable ,
setTreeViewColumnClickable ,
#if ENABLE_OVERLOADING
treeViewColumnClickable ,
#endif
#if ENABLE_OVERLOADING
TreeViewColumnExpandPropertyInfo ,
#endif
constructTreeViewColumnExpand ,
getTreeViewColumnExpand ,
setTreeViewColumnExpand ,
#if ENABLE_OVERLOADING
treeViewColumnExpand ,
#endif
#if ENABLE_OVERLOADING
TreeViewColumnFixedWidthPropertyInfo ,
#endif
constructTreeViewColumnFixedWidth ,
getTreeViewColumnFixedWidth ,
setTreeViewColumnFixedWidth ,
#if ENABLE_OVERLOADING
treeViewColumnFixedWidth ,
#endif
#if ENABLE_OVERLOADING
TreeViewColumnMaxWidthPropertyInfo ,
#endif
constructTreeViewColumnMaxWidth ,
getTreeViewColumnMaxWidth ,
setTreeViewColumnMaxWidth ,
#if ENABLE_OVERLOADING
treeViewColumnMaxWidth ,
#endif
#if ENABLE_OVERLOADING
TreeViewColumnMinWidthPropertyInfo ,
#endif
constructTreeViewColumnMinWidth ,
getTreeViewColumnMinWidth ,
setTreeViewColumnMinWidth ,
#if ENABLE_OVERLOADING
treeViewColumnMinWidth ,
#endif
#if ENABLE_OVERLOADING
TreeViewColumnReorderablePropertyInfo ,
#endif
constructTreeViewColumnReorderable ,
getTreeViewColumnReorderable ,
setTreeViewColumnReorderable ,
#if ENABLE_OVERLOADING
treeViewColumnReorderable ,
#endif
#if ENABLE_OVERLOADING
TreeViewColumnResizablePropertyInfo ,
#endif
constructTreeViewColumnResizable ,
getTreeViewColumnResizable ,
setTreeViewColumnResizable ,
#if ENABLE_OVERLOADING
treeViewColumnResizable ,
#endif
#if ENABLE_OVERLOADING
TreeViewColumnSizingPropertyInfo ,
#endif
constructTreeViewColumnSizing ,
getTreeViewColumnSizing ,
setTreeViewColumnSizing ,
#if ENABLE_OVERLOADING
treeViewColumnSizing ,
#endif
#if ENABLE_OVERLOADING
TreeViewColumnSortColumnIdPropertyInfo ,
#endif
constructTreeViewColumnSortColumnId ,
getTreeViewColumnSortColumnId ,
setTreeViewColumnSortColumnId ,
#if ENABLE_OVERLOADING
treeViewColumnSortColumnId ,
#endif
#if ENABLE_OVERLOADING
TreeViewColumnSortIndicatorPropertyInfo ,
#endif
constructTreeViewColumnSortIndicator ,
getTreeViewColumnSortIndicator ,
setTreeViewColumnSortIndicator ,
#if ENABLE_OVERLOADING
treeViewColumnSortIndicator ,
#endif
#if ENABLE_OVERLOADING
TreeViewColumnSortOrderPropertyInfo ,
#endif
constructTreeViewColumnSortOrder ,
getTreeViewColumnSortOrder ,
setTreeViewColumnSortOrder ,
#if ENABLE_OVERLOADING
treeViewColumnSortOrder ,
#endif
#if ENABLE_OVERLOADING
TreeViewColumnSpacingPropertyInfo ,
#endif
constructTreeViewColumnSpacing ,
getTreeViewColumnSpacing ,
setTreeViewColumnSpacing ,
#if ENABLE_OVERLOADING
treeViewColumnSpacing ,
#endif
#if ENABLE_OVERLOADING
TreeViewColumnTitlePropertyInfo ,
#endif
constructTreeViewColumnTitle ,
getTreeViewColumnTitle ,
setTreeViewColumnTitle ,
#if ENABLE_OVERLOADING
treeViewColumnTitle ,
#endif
#if ENABLE_OVERLOADING
TreeViewColumnVisiblePropertyInfo ,
#endif
constructTreeViewColumnVisible ,
getTreeViewColumnVisible ,
setTreeViewColumnVisible ,
#if ENABLE_OVERLOADING
treeViewColumnVisible ,
#endif
#if ENABLE_OVERLOADING
TreeViewColumnWidgetPropertyInfo ,
#endif
clearTreeViewColumnWidget ,
constructTreeViewColumnWidget ,
getTreeViewColumnWidget ,
setTreeViewColumnWidget ,
#if ENABLE_OVERLOADING
treeViewColumnWidget ,
#endif
#if ENABLE_OVERLOADING
TreeViewColumnWidthPropertyInfo ,
#endif
getTreeViewColumnWidth ,
#if ENABLE_OVERLOADING
treeViewColumnWidth ,
#endif
#if ENABLE_OVERLOADING
TreeViewColumnXOffsetPropertyInfo ,
#endif
getTreeViewColumnXOffset ,
#if ENABLE_OVERLOADING
treeViewColumnXOffset ,
#endif
C_TreeViewColumnClickedCallback ,
TreeViewColumnClickedCallback ,
#if ENABLE_OVERLOADING
TreeViewColumnClickedSignalInfo ,
#endif
afterTreeViewColumnClicked ,
genClosure_TreeViewColumnClicked ,
mk_TreeViewColumnClickedCallback ,
noTreeViewColumnClickedCallback ,
onTreeViewColumnClicked ,
wrap_TreeViewColumnClickedCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.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.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GObject.Objects.Object as GObject.Object
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.CellLayout as Gtk.CellLayout
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.TreeModel as Gtk.TreeModel
import {-# SOURCE #-} qualified GI.Gtk.Objects.CellArea as Gtk.CellArea
import {-# SOURCE #-} qualified GI.Gtk.Objects.CellRenderer as Gtk.CellRenderer
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Gtk.Structs.TreeIter as Gtk.TreeIter
newtype TreeViewColumn = TreeViewColumn (ManagedPtr TreeViewColumn)
foreign import ccall "gtk_tree_view_column_get_type"
c_gtk_tree_view_column_get_type :: IO GType
instance GObject TreeViewColumn where
gobjectType _ = c_gtk_tree_view_column_get_type
class GObject o => IsTreeViewColumn o
#if MIN_VERSION_base(4,9,0)
instance {-# OVERLAPPABLE #-} (GObject a, O.UnknownAncestorError TreeViewColumn a) =>
IsTreeViewColumn a
#endif
instance IsTreeViewColumn TreeViewColumn
instance GObject.Object.IsObject TreeViewColumn
instance Gtk.Buildable.IsBuildable TreeViewColumn
instance Gtk.CellLayout.IsCellLayout TreeViewColumn
toTreeViewColumn :: (MonadIO m, IsTreeViewColumn o) => o -> m TreeViewColumn
toTreeViewColumn = liftIO . unsafeCastTo TreeViewColumn
noTreeViewColumn :: Maybe TreeViewColumn
noTreeViewColumn = Nothing
#if ENABLE_OVERLOADING
type family ResolveTreeViewColumnMethod (t :: Symbol) (o :: *) :: * where
ResolveTreeViewColumnMethod "addAttribute" o = TreeViewColumnAddAttributeMethodInfo
ResolveTreeViewColumnMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveTreeViewColumnMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveTreeViewColumnMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveTreeViewColumnMethod "cellGetPosition" o = TreeViewColumnCellGetPositionMethodInfo
ResolveTreeViewColumnMethod "cellGetSize" o = TreeViewColumnCellGetSizeMethodInfo
ResolveTreeViewColumnMethod "cellIsVisible" o = TreeViewColumnCellIsVisibleMethodInfo
ResolveTreeViewColumnMethod "cellSetCellData" o = TreeViewColumnCellSetCellDataMethodInfo
ResolveTreeViewColumnMethod "clear" o = TreeViewColumnClearMethodInfo
ResolveTreeViewColumnMethod "clearAttributes" o = TreeViewColumnClearAttributesMethodInfo
ResolveTreeViewColumnMethod "clicked" o = TreeViewColumnClickedMethodInfo
ResolveTreeViewColumnMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveTreeViewColumnMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveTreeViewColumnMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveTreeViewColumnMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveTreeViewColumnMethod "focusCell" o = TreeViewColumnFocusCellMethodInfo
ResolveTreeViewColumnMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveTreeViewColumnMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveTreeViewColumnMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveTreeViewColumnMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveTreeViewColumnMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveTreeViewColumnMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveTreeViewColumnMethod "packEnd" o = TreeViewColumnPackEndMethodInfo
ResolveTreeViewColumnMethod "packStart" o = TreeViewColumnPackStartMethodInfo
ResolveTreeViewColumnMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveTreeViewColumnMethod "queueResize" o = TreeViewColumnQueueResizeMethodInfo
ResolveTreeViewColumnMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveTreeViewColumnMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveTreeViewColumnMethod "reorder" o = Gtk.CellLayout.CellLayoutReorderMethodInfo
ResolveTreeViewColumnMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveTreeViewColumnMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveTreeViewColumnMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveTreeViewColumnMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveTreeViewColumnMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveTreeViewColumnMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveTreeViewColumnMethod "getAlignment" o = TreeViewColumnGetAlignmentMethodInfo
ResolveTreeViewColumnMethod "getArea" o = Gtk.CellLayout.CellLayoutGetAreaMethodInfo
ResolveTreeViewColumnMethod "getButton" o = TreeViewColumnGetButtonMethodInfo
ResolveTreeViewColumnMethod "getCells" o = Gtk.CellLayout.CellLayoutGetCellsMethodInfo
ResolveTreeViewColumnMethod "getClickable" o = TreeViewColumnGetClickableMethodInfo
ResolveTreeViewColumnMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveTreeViewColumnMethod "getExpand" o = TreeViewColumnGetExpandMethodInfo
ResolveTreeViewColumnMethod "getFixedWidth" o = TreeViewColumnGetFixedWidthMethodInfo
ResolveTreeViewColumnMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveTreeViewColumnMethod "getMaxWidth" o = TreeViewColumnGetMaxWidthMethodInfo
ResolveTreeViewColumnMethod "getMinWidth" o = TreeViewColumnGetMinWidthMethodInfo
ResolveTreeViewColumnMethod "getName" o = Gtk.Buildable.BuildableGetNameMethodInfo
ResolveTreeViewColumnMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveTreeViewColumnMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveTreeViewColumnMethod "getReorderable" o = TreeViewColumnGetReorderableMethodInfo
ResolveTreeViewColumnMethod "getResizable" o = TreeViewColumnGetResizableMethodInfo
ResolveTreeViewColumnMethod "getSizing" o = TreeViewColumnGetSizingMethodInfo
ResolveTreeViewColumnMethod "getSortColumnId" o = TreeViewColumnGetSortColumnIdMethodInfo
ResolveTreeViewColumnMethod "getSortIndicator" o = TreeViewColumnGetSortIndicatorMethodInfo
ResolveTreeViewColumnMethod "getSortOrder" o = TreeViewColumnGetSortOrderMethodInfo
ResolveTreeViewColumnMethod "getSpacing" o = TreeViewColumnGetSpacingMethodInfo
ResolveTreeViewColumnMethod "getTitle" o = TreeViewColumnGetTitleMethodInfo
ResolveTreeViewColumnMethod "getTreeView" o = TreeViewColumnGetTreeViewMethodInfo
ResolveTreeViewColumnMethod "getVisible" o = TreeViewColumnGetVisibleMethodInfo
ResolveTreeViewColumnMethod "getWidget" o = TreeViewColumnGetWidgetMethodInfo
ResolveTreeViewColumnMethod "getWidth" o = TreeViewColumnGetWidthMethodInfo
ResolveTreeViewColumnMethod "getXOffset" o = TreeViewColumnGetXOffsetMethodInfo
ResolveTreeViewColumnMethod "setAlignment" o = TreeViewColumnSetAlignmentMethodInfo
ResolveTreeViewColumnMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveTreeViewColumnMethod "setCellDataFunc" o = TreeViewColumnSetCellDataFuncMethodInfo
ResolveTreeViewColumnMethod "setClickable" o = TreeViewColumnSetClickableMethodInfo
ResolveTreeViewColumnMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveTreeViewColumnMethod "setExpand" o = TreeViewColumnSetExpandMethodInfo
ResolveTreeViewColumnMethod "setFixedWidth" o = TreeViewColumnSetFixedWidthMethodInfo
ResolveTreeViewColumnMethod "setMaxWidth" o = TreeViewColumnSetMaxWidthMethodInfo
ResolveTreeViewColumnMethod "setMinWidth" o = TreeViewColumnSetMinWidthMethodInfo
ResolveTreeViewColumnMethod "setName" o = Gtk.Buildable.BuildableSetNameMethodInfo
ResolveTreeViewColumnMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveTreeViewColumnMethod "setReorderable" o = TreeViewColumnSetReorderableMethodInfo
ResolveTreeViewColumnMethod "setResizable" o = TreeViewColumnSetResizableMethodInfo
ResolveTreeViewColumnMethod "setSizing" o = TreeViewColumnSetSizingMethodInfo
ResolveTreeViewColumnMethod "setSortColumnId" o = TreeViewColumnSetSortColumnIdMethodInfo
ResolveTreeViewColumnMethod "setSortIndicator" o = TreeViewColumnSetSortIndicatorMethodInfo
ResolveTreeViewColumnMethod "setSortOrder" o = TreeViewColumnSetSortOrderMethodInfo
ResolveTreeViewColumnMethod "setSpacing" o = TreeViewColumnSetSpacingMethodInfo
ResolveTreeViewColumnMethod "setTitle" o = TreeViewColumnSetTitleMethodInfo
ResolveTreeViewColumnMethod "setVisible" o = TreeViewColumnSetVisibleMethodInfo
ResolveTreeViewColumnMethod "setWidget" o = TreeViewColumnSetWidgetMethodInfo
ResolveTreeViewColumnMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTreeViewColumnMethod t TreeViewColumn, O.MethodInfo info TreeViewColumn p) => O.IsLabelProxy t (TreeViewColumn -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveTreeViewColumnMethod t TreeViewColumn, O.MethodInfo info TreeViewColumn p) => O.IsLabel t (TreeViewColumn -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#endif
type TreeViewColumnClickedCallback =
IO ()
noTreeViewColumnClickedCallback :: Maybe TreeViewColumnClickedCallback
noTreeViewColumnClickedCallback = Nothing
type C_TreeViewColumnClickedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TreeViewColumnClickedCallback :: C_TreeViewColumnClickedCallback -> IO (FunPtr C_TreeViewColumnClickedCallback)
genClosure_TreeViewColumnClicked :: TreeViewColumnClickedCallback -> IO Closure
genClosure_TreeViewColumnClicked cb = do
let cb' = wrap_TreeViewColumnClickedCallback cb
mk_TreeViewColumnClickedCallback cb' >>= newCClosure
wrap_TreeViewColumnClickedCallback ::
TreeViewColumnClickedCallback ->
C_TreeViewColumnClickedCallback
wrap_TreeViewColumnClickedCallback _cb _ _ = do
_cb
onTreeViewColumnClicked :: (IsTreeViewColumn a, MonadIO m) => a -> TreeViewColumnClickedCallback -> m SignalHandlerId
onTreeViewColumnClicked obj cb = liftIO $ do
let cb' = wrap_TreeViewColumnClickedCallback cb
cb'' <- mk_TreeViewColumnClickedCallback cb'
connectSignalFunPtr obj "clicked" cb'' SignalConnectBefore
afterTreeViewColumnClicked :: (IsTreeViewColumn a, MonadIO m) => a -> TreeViewColumnClickedCallback -> m SignalHandlerId
afterTreeViewColumnClicked obj cb = liftIO $ do
let cb' = wrap_TreeViewColumnClickedCallback cb
cb'' <- mk_TreeViewColumnClickedCallback cb'
connectSignalFunPtr obj "clicked" cb'' SignalConnectAfter
getTreeViewColumnAlignment :: (MonadIO m, IsTreeViewColumn o) => o -> m Float
getTreeViewColumnAlignment obj = liftIO $ getObjectPropertyFloat obj "alignment"
setTreeViewColumnAlignment :: (MonadIO m, IsTreeViewColumn o) => o -> Float -> m ()
setTreeViewColumnAlignment obj val = liftIO $ setObjectPropertyFloat obj "alignment" val
constructTreeViewColumnAlignment :: (IsTreeViewColumn o) => Float -> IO (GValueConstruct o)
constructTreeViewColumnAlignment val = constructObjectPropertyFloat "alignment" val
#if ENABLE_OVERLOADING
data TreeViewColumnAlignmentPropertyInfo
instance AttrInfo TreeViewColumnAlignmentPropertyInfo where
type AttrAllowedOps TreeViewColumnAlignmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnAlignmentPropertyInfo = (~) Float
type AttrBaseTypeConstraint TreeViewColumnAlignmentPropertyInfo = IsTreeViewColumn
type AttrGetType TreeViewColumnAlignmentPropertyInfo = Float
type AttrLabel TreeViewColumnAlignmentPropertyInfo = "alignment"
type AttrOrigin TreeViewColumnAlignmentPropertyInfo = TreeViewColumn
attrGet _ = getTreeViewColumnAlignment
attrSet _ = setTreeViewColumnAlignment
attrConstruct _ = constructTreeViewColumnAlignment
attrClear _ = undefined
#endif
getTreeViewColumnCellArea :: (MonadIO m, IsTreeViewColumn o) => o -> m (Maybe Gtk.CellArea.CellArea)
getTreeViewColumnCellArea obj = liftIO $ getObjectPropertyObject obj "cell-area" Gtk.CellArea.CellArea
constructTreeViewColumnCellArea :: (IsTreeViewColumn o, Gtk.CellArea.IsCellArea a) => a -> IO (GValueConstruct o)
constructTreeViewColumnCellArea val = constructObjectPropertyObject "cell-area" (Just val)
#if ENABLE_OVERLOADING
data TreeViewColumnCellAreaPropertyInfo
instance AttrInfo TreeViewColumnCellAreaPropertyInfo where
type AttrAllowedOps TreeViewColumnCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint TreeViewColumnCellAreaPropertyInfo = Gtk.CellArea.IsCellArea
type AttrBaseTypeConstraint TreeViewColumnCellAreaPropertyInfo = IsTreeViewColumn
type AttrGetType TreeViewColumnCellAreaPropertyInfo = (Maybe Gtk.CellArea.CellArea)
type AttrLabel TreeViewColumnCellAreaPropertyInfo = "cell-area"
type AttrOrigin TreeViewColumnCellAreaPropertyInfo = TreeViewColumn
attrGet _ = getTreeViewColumnCellArea
attrSet _ = undefined
attrConstruct _ = constructTreeViewColumnCellArea
attrClear _ = undefined
#endif
getTreeViewColumnClickable :: (MonadIO m, IsTreeViewColumn o) => o -> m Bool
getTreeViewColumnClickable obj = liftIO $ getObjectPropertyBool obj "clickable"
setTreeViewColumnClickable :: (MonadIO m, IsTreeViewColumn o) => o -> Bool -> m ()
setTreeViewColumnClickable obj val = liftIO $ setObjectPropertyBool obj "clickable" val
constructTreeViewColumnClickable :: (IsTreeViewColumn o) => Bool -> IO (GValueConstruct o)
constructTreeViewColumnClickable val = constructObjectPropertyBool "clickable" val
#if ENABLE_OVERLOADING
data TreeViewColumnClickablePropertyInfo
instance AttrInfo TreeViewColumnClickablePropertyInfo where
type AttrAllowedOps TreeViewColumnClickablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnClickablePropertyInfo = (~) Bool
type AttrBaseTypeConstraint TreeViewColumnClickablePropertyInfo = IsTreeViewColumn
type AttrGetType TreeViewColumnClickablePropertyInfo = Bool
type AttrLabel TreeViewColumnClickablePropertyInfo = "clickable"
type AttrOrigin TreeViewColumnClickablePropertyInfo = TreeViewColumn
attrGet _ = getTreeViewColumnClickable
attrSet _ = setTreeViewColumnClickable
attrConstruct _ = constructTreeViewColumnClickable
attrClear _ = undefined
#endif
getTreeViewColumnExpand :: (MonadIO m, IsTreeViewColumn o) => o -> m Bool
getTreeViewColumnExpand obj = liftIO $ getObjectPropertyBool obj "expand"
setTreeViewColumnExpand :: (MonadIO m, IsTreeViewColumn o) => o -> Bool -> m ()
setTreeViewColumnExpand obj val = liftIO $ setObjectPropertyBool obj "expand" val
constructTreeViewColumnExpand :: (IsTreeViewColumn o) => Bool -> IO (GValueConstruct o)
constructTreeViewColumnExpand val = constructObjectPropertyBool "expand" val
#if ENABLE_OVERLOADING
data TreeViewColumnExpandPropertyInfo
instance AttrInfo TreeViewColumnExpandPropertyInfo where
type AttrAllowedOps TreeViewColumnExpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnExpandPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TreeViewColumnExpandPropertyInfo = IsTreeViewColumn
type AttrGetType TreeViewColumnExpandPropertyInfo = Bool
type AttrLabel TreeViewColumnExpandPropertyInfo = "expand"
type AttrOrigin TreeViewColumnExpandPropertyInfo = TreeViewColumn
attrGet _ = getTreeViewColumnExpand
attrSet _ = setTreeViewColumnExpand
attrConstruct _ = constructTreeViewColumnExpand
attrClear _ = undefined
#endif
getTreeViewColumnFixedWidth :: (MonadIO m, IsTreeViewColumn o) => o -> m Int32
getTreeViewColumnFixedWidth obj = liftIO $ getObjectPropertyInt32 obj "fixed-width"
setTreeViewColumnFixedWidth :: (MonadIO m, IsTreeViewColumn o) => o -> Int32 -> m ()
setTreeViewColumnFixedWidth obj val = liftIO $ setObjectPropertyInt32 obj "fixed-width" val
constructTreeViewColumnFixedWidth :: (IsTreeViewColumn o) => Int32 -> IO (GValueConstruct o)
constructTreeViewColumnFixedWidth val = constructObjectPropertyInt32 "fixed-width" val
#if ENABLE_OVERLOADING
data TreeViewColumnFixedWidthPropertyInfo
instance AttrInfo TreeViewColumnFixedWidthPropertyInfo where
type AttrAllowedOps TreeViewColumnFixedWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnFixedWidthPropertyInfo = (~) Int32
type AttrBaseTypeConstraint TreeViewColumnFixedWidthPropertyInfo = IsTreeViewColumn
type AttrGetType TreeViewColumnFixedWidthPropertyInfo = Int32
type AttrLabel TreeViewColumnFixedWidthPropertyInfo = "fixed-width"
type AttrOrigin TreeViewColumnFixedWidthPropertyInfo = TreeViewColumn
attrGet _ = getTreeViewColumnFixedWidth
attrSet _ = setTreeViewColumnFixedWidth
attrConstruct _ = constructTreeViewColumnFixedWidth
attrClear _ = undefined
#endif
getTreeViewColumnMaxWidth :: (MonadIO m, IsTreeViewColumn o) => o -> m Int32
getTreeViewColumnMaxWidth obj = liftIO $ getObjectPropertyInt32 obj "max-width"
setTreeViewColumnMaxWidth :: (MonadIO m, IsTreeViewColumn o) => o -> Int32 -> m ()
setTreeViewColumnMaxWidth obj val = liftIO $ setObjectPropertyInt32 obj "max-width" val
constructTreeViewColumnMaxWidth :: (IsTreeViewColumn o) => Int32 -> IO (GValueConstruct o)
constructTreeViewColumnMaxWidth val = constructObjectPropertyInt32 "max-width" val
#if ENABLE_OVERLOADING
data TreeViewColumnMaxWidthPropertyInfo
instance AttrInfo TreeViewColumnMaxWidthPropertyInfo where
type AttrAllowedOps TreeViewColumnMaxWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnMaxWidthPropertyInfo = (~) Int32
type AttrBaseTypeConstraint TreeViewColumnMaxWidthPropertyInfo = IsTreeViewColumn
type AttrGetType TreeViewColumnMaxWidthPropertyInfo = Int32
type AttrLabel TreeViewColumnMaxWidthPropertyInfo = "max-width"
type AttrOrigin TreeViewColumnMaxWidthPropertyInfo = TreeViewColumn
attrGet _ = getTreeViewColumnMaxWidth
attrSet _ = setTreeViewColumnMaxWidth
attrConstruct _ = constructTreeViewColumnMaxWidth
attrClear _ = undefined
#endif
getTreeViewColumnMinWidth :: (MonadIO m, IsTreeViewColumn o) => o -> m Int32
getTreeViewColumnMinWidth obj = liftIO $ getObjectPropertyInt32 obj "min-width"
setTreeViewColumnMinWidth :: (MonadIO m, IsTreeViewColumn o) => o -> Int32 -> m ()
setTreeViewColumnMinWidth obj val = liftIO $ setObjectPropertyInt32 obj "min-width" val
constructTreeViewColumnMinWidth :: (IsTreeViewColumn o) => Int32 -> IO (GValueConstruct o)
constructTreeViewColumnMinWidth val = constructObjectPropertyInt32 "min-width" val
#if ENABLE_OVERLOADING
data TreeViewColumnMinWidthPropertyInfo
instance AttrInfo TreeViewColumnMinWidthPropertyInfo where
type AttrAllowedOps TreeViewColumnMinWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnMinWidthPropertyInfo = (~) Int32
type AttrBaseTypeConstraint TreeViewColumnMinWidthPropertyInfo = IsTreeViewColumn
type AttrGetType TreeViewColumnMinWidthPropertyInfo = Int32
type AttrLabel TreeViewColumnMinWidthPropertyInfo = "min-width"
type AttrOrigin TreeViewColumnMinWidthPropertyInfo = TreeViewColumn
attrGet _ = getTreeViewColumnMinWidth
attrSet _ = setTreeViewColumnMinWidth
attrConstruct _ = constructTreeViewColumnMinWidth
attrClear _ = undefined
#endif
getTreeViewColumnReorderable :: (MonadIO m, IsTreeViewColumn o) => o -> m Bool
getTreeViewColumnReorderable obj = liftIO $ getObjectPropertyBool obj "reorderable"
setTreeViewColumnReorderable :: (MonadIO m, IsTreeViewColumn o) => o -> Bool -> m ()
setTreeViewColumnReorderable obj val = liftIO $ setObjectPropertyBool obj "reorderable" val
constructTreeViewColumnReorderable :: (IsTreeViewColumn o) => Bool -> IO (GValueConstruct o)
constructTreeViewColumnReorderable val = constructObjectPropertyBool "reorderable" val
#if ENABLE_OVERLOADING
data TreeViewColumnReorderablePropertyInfo
instance AttrInfo TreeViewColumnReorderablePropertyInfo where
type AttrAllowedOps TreeViewColumnReorderablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnReorderablePropertyInfo = (~) Bool
type AttrBaseTypeConstraint TreeViewColumnReorderablePropertyInfo = IsTreeViewColumn
type AttrGetType TreeViewColumnReorderablePropertyInfo = Bool
type AttrLabel TreeViewColumnReorderablePropertyInfo = "reorderable"
type AttrOrigin TreeViewColumnReorderablePropertyInfo = TreeViewColumn
attrGet _ = getTreeViewColumnReorderable
attrSet _ = setTreeViewColumnReorderable
attrConstruct _ = constructTreeViewColumnReorderable
attrClear _ = undefined
#endif
getTreeViewColumnResizable :: (MonadIO m, IsTreeViewColumn o) => o -> m Bool
getTreeViewColumnResizable obj = liftIO $ getObjectPropertyBool obj "resizable"
setTreeViewColumnResizable :: (MonadIO m, IsTreeViewColumn o) => o -> Bool -> m ()
setTreeViewColumnResizable obj val = liftIO $ setObjectPropertyBool obj "resizable" val
constructTreeViewColumnResizable :: (IsTreeViewColumn o) => Bool -> IO (GValueConstruct o)
constructTreeViewColumnResizable val = constructObjectPropertyBool "resizable" val
#if ENABLE_OVERLOADING
data TreeViewColumnResizablePropertyInfo
instance AttrInfo TreeViewColumnResizablePropertyInfo where
type AttrAllowedOps TreeViewColumnResizablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnResizablePropertyInfo = (~) Bool
type AttrBaseTypeConstraint TreeViewColumnResizablePropertyInfo = IsTreeViewColumn
type AttrGetType TreeViewColumnResizablePropertyInfo = Bool
type AttrLabel TreeViewColumnResizablePropertyInfo = "resizable"
type AttrOrigin TreeViewColumnResizablePropertyInfo = TreeViewColumn
attrGet _ = getTreeViewColumnResizable
attrSet _ = setTreeViewColumnResizable
attrConstruct _ = constructTreeViewColumnResizable
attrClear _ = undefined
#endif
getTreeViewColumnSizing :: (MonadIO m, IsTreeViewColumn o) => o -> m Gtk.Enums.TreeViewColumnSizing
getTreeViewColumnSizing obj = liftIO $ getObjectPropertyEnum obj "sizing"
setTreeViewColumnSizing :: (MonadIO m, IsTreeViewColumn o) => o -> Gtk.Enums.TreeViewColumnSizing -> m ()
setTreeViewColumnSizing obj val = liftIO $ setObjectPropertyEnum obj "sizing" val
constructTreeViewColumnSizing :: (IsTreeViewColumn o) => Gtk.Enums.TreeViewColumnSizing -> IO (GValueConstruct o)
constructTreeViewColumnSizing val = constructObjectPropertyEnum "sizing" val
#if ENABLE_OVERLOADING
data TreeViewColumnSizingPropertyInfo
instance AttrInfo TreeViewColumnSizingPropertyInfo where
type AttrAllowedOps TreeViewColumnSizingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnSizingPropertyInfo = (~) Gtk.Enums.TreeViewColumnSizing
type AttrBaseTypeConstraint TreeViewColumnSizingPropertyInfo = IsTreeViewColumn
type AttrGetType TreeViewColumnSizingPropertyInfo = Gtk.Enums.TreeViewColumnSizing
type AttrLabel TreeViewColumnSizingPropertyInfo = "sizing"
type AttrOrigin TreeViewColumnSizingPropertyInfo = TreeViewColumn
attrGet _ = getTreeViewColumnSizing
attrSet _ = setTreeViewColumnSizing
attrConstruct _ = constructTreeViewColumnSizing
attrClear _ = undefined
#endif
getTreeViewColumnSortColumnId :: (MonadIO m, IsTreeViewColumn o) => o -> m Int32
getTreeViewColumnSortColumnId obj = liftIO $ getObjectPropertyInt32 obj "sort-column-id"
setTreeViewColumnSortColumnId :: (MonadIO m, IsTreeViewColumn o) => o -> Int32 -> m ()
setTreeViewColumnSortColumnId obj val = liftIO $ setObjectPropertyInt32 obj "sort-column-id" val
constructTreeViewColumnSortColumnId :: (IsTreeViewColumn o) => Int32 -> IO (GValueConstruct o)
constructTreeViewColumnSortColumnId val = constructObjectPropertyInt32 "sort-column-id" val
#if ENABLE_OVERLOADING
data TreeViewColumnSortColumnIdPropertyInfo
instance AttrInfo TreeViewColumnSortColumnIdPropertyInfo where
type AttrAllowedOps TreeViewColumnSortColumnIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnSortColumnIdPropertyInfo = (~) Int32
type AttrBaseTypeConstraint TreeViewColumnSortColumnIdPropertyInfo = IsTreeViewColumn
type AttrGetType TreeViewColumnSortColumnIdPropertyInfo = Int32
type AttrLabel TreeViewColumnSortColumnIdPropertyInfo = "sort-column-id"
type AttrOrigin TreeViewColumnSortColumnIdPropertyInfo = TreeViewColumn
attrGet _ = getTreeViewColumnSortColumnId
attrSet _ = setTreeViewColumnSortColumnId
attrConstruct _ = constructTreeViewColumnSortColumnId
attrClear _ = undefined
#endif
getTreeViewColumnSortIndicator :: (MonadIO m, IsTreeViewColumn o) => o -> m Bool
getTreeViewColumnSortIndicator obj = liftIO $ getObjectPropertyBool obj "sort-indicator"
setTreeViewColumnSortIndicator :: (MonadIO m, IsTreeViewColumn o) => o -> Bool -> m ()
setTreeViewColumnSortIndicator obj val = liftIO $ setObjectPropertyBool obj "sort-indicator" val
constructTreeViewColumnSortIndicator :: (IsTreeViewColumn o) => Bool -> IO (GValueConstruct o)
constructTreeViewColumnSortIndicator val = constructObjectPropertyBool "sort-indicator" val
#if ENABLE_OVERLOADING
data TreeViewColumnSortIndicatorPropertyInfo
instance AttrInfo TreeViewColumnSortIndicatorPropertyInfo where
type AttrAllowedOps TreeViewColumnSortIndicatorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnSortIndicatorPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TreeViewColumnSortIndicatorPropertyInfo = IsTreeViewColumn
type AttrGetType TreeViewColumnSortIndicatorPropertyInfo = Bool
type AttrLabel TreeViewColumnSortIndicatorPropertyInfo = "sort-indicator"
type AttrOrigin TreeViewColumnSortIndicatorPropertyInfo = TreeViewColumn
attrGet _ = getTreeViewColumnSortIndicator
attrSet _ = setTreeViewColumnSortIndicator
attrConstruct _ = constructTreeViewColumnSortIndicator
attrClear _ = undefined
#endif
getTreeViewColumnSortOrder :: (MonadIO m, IsTreeViewColumn o) => o -> m Gtk.Enums.SortType
getTreeViewColumnSortOrder obj = liftIO $ getObjectPropertyEnum obj "sort-order"
setTreeViewColumnSortOrder :: (MonadIO m, IsTreeViewColumn o) => o -> Gtk.Enums.SortType -> m ()
setTreeViewColumnSortOrder obj val = liftIO $ setObjectPropertyEnum obj "sort-order" val
constructTreeViewColumnSortOrder :: (IsTreeViewColumn o) => Gtk.Enums.SortType -> IO (GValueConstruct o)
constructTreeViewColumnSortOrder val = constructObjectPropertyEnum "sort-order" val
#if ENABLE_OVERLOADING
data TreeViewColumnSortOrderPropertyInfo
instance AttrInfo TreeViewColumnSortOrderPropertyInfo where
type AttrAllowedOps TreeViewColumnSortOrderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnSortOrderPropertyInfo = (~) Gtk.Enums.SortType
type AttrBaseTypeConstraint TreeViewColumnSortOrderPropertyInfo = IsTreeViewColumn
type AttrGetType TreeViewColumnSortOrderPropertyInfo = Gtk.Enums.SortType
type AttrLabel TreeViewColumnSortOrderPropertyInfo = "sort-order"
type AttrOrigin TreeViewColumnSortOrderPropertyInfo = TreeViewColumn
attrGet _ = getTreeViewColumnSortOrder
attrSet _ = setTreeViewColumnSortOrder
attrConstruct _ = constructTreeViewColumnSortOrder
attrClear _ = undefined
#endif
getTreeViewColumnSpacing :: (MonadIO m, IsTreeViewColumn o) => o -> m Int32
getTreeViewColumnSpacing obj = liftIO $ getObjectPropertyInt32 obj "spacing"
setTreeViewColumnSpacing :: (MonadIO m, IsTreeViewColumn o) => o -> Int32 -> m ()
setTreeViewColumnSpacing obj val = liftIO $ setObjectPropertyInt32 obj "spacing" val
constructTreeViewColumnSpacing :: (IsTreeViewColumn o) => Int32 -> IO (GValueConstruct o)
constructTreeViewColumnSpacing val = constructObjectPropertyInt32 "spacing" val
#if ENABLE_OVERLOADING
data TreeViewColumnSpacingPropertyInfo
instance AttrInfo TreeViewColumnSpacingPropertyInfo where
type AttrAllowedOps TreeViewColumnSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnSpacingPropertyInfo = (~) Int32
type AttrBaseTypeConstraint TreeViewColumnSpacingPropertyInfo = IsTreeViewColumn
type AttrGetType TreeViewColumnSpacingPropertyInfo = Int32
type AttrLabel TreeViewColumnSpacingPropertyInfo = "spacing"
type AttrOrigin TreeViewColumnSpacingPropertyInfo = TreeViewColumn
attrGet _ = getTreeViewColumnSpacing
attrSet _ = setTreeViewColumnSpacing
attrConstruct _ = constructTreeViewColumnSpacing
attrClear _ = undefined
#endif
getTreeViewColumnTitle :: (MonadIO m, IsTreeViewColumn o) => o -> m T.Text
getTreeViewColumnTitle obj = liftIO $ checkUnexpectedNothing "getTreeViewColumnTitle" $ getObjectPropertyString obj "title"
setTreeViewColumnTitle :: (MonadIO m, IsTreeViewColumn o) => o -> T.Text -> m ()
setTreeViewColumnTitle obj val = liftIO $ setObjectPropertyString obj "title" (Just val)
constructTreeViewColumnTitle :: (IsTreeViewColumn o) => T.Text -> IO (GValueConstruct o)
constructTreeViewColumnTitle val = constructObjectPropertyString "title" (Just val)
#if ENABLE_OVERLOADING
data TreeViewColumnTitlePropertyInfo
instance AttrInfo TreeViewColumnTitlePropertyInfo where
type AttrAllowedOps TreeViewColumnTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnTitlePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint TreeViewColumnTitlePropertyInfo = IsTreeViewColumn
type AttrGetType TreeViewColumnTitlePropertyInfo = T.Text
type AttrLabel TreeViewColumnTitlePropertyInfo = "title"
type AttrOrigin TreeViewColumnTitlePropertyInfo = TreeViewColumn
attrGet _ = getTreeViewColumnTitle
attrSet _ = setTreeViewColumnTitle
attrConstruct _ = constructTreeViewColumnTitle
attrClear _ = undefined
#endif
getTreeViewColumnVisible :: (MonadIO m, IsTreeViewColumn o) => o -> m Bool
getTreeViewColumnVisible obj = liftIO $ getObjectPropertyBool obj "visible"
setTreeViewColumnVisible :: (MonadIO m, IsTreeViewColumn o) => o -> Bool -> m ()
setTreeViewColumnVisible obj val = liftIO $ setObjectPropertyBool obj "visible" val
constructTreeViewColumnVisible :: (IsTreeViewColumn o) => Bool -> IO (GValueConstruct o)
constructTreeViewColumnVisible val = constructObjectPropertyBool "visible" val
#if ENABLE_OVERLOADING
data TreeViewColumnVisiblePropertyInfo
instance AttrInfo TreeViewColumnVisiblePropertyInfo where
type AttrAllowedOps TreeViewColumnVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnVisiblePropertyInfo = (~) Bool
type AttrBaseTypeConstraint TreeViewColumnVisiblePropertyInfo = IsTreeViewColumn
type AttrGetType TreeViewColumnVisiblePropertyInfo = Bool
type AttrLabel TreeViewColumnVisiblePropertyInfo = "visible"
type AttrOrigin TreeViewColumnVisiblePropertyInfo = TreeViewColumn
attrGet _ = getTreeViewColumnVisible
attrSet _ = setTreeViewColumnVisible
attrConstruct _ = constructTreeViewColumnVisible
attrClear _ = undefined
#endif
getTreeViewColumnWidget :: (MonadIO m, IsTreeViewColumn o) => o -> m (Maybe Gtk.Widget.Widget)
getTreeViewColumnWidget obj = liftIO $ getObjectPropertyObject obj "widget" Gtk.Widget.Widget
setTreeViewColumnWidget :: (MonadIO m, IsTreeViewColumn o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setTreeViewColumnWidget obj val = liftIO $ setObjectPropertyObject obj "widget" (Just val)
constructTreeViewColumnWidget :: (IsTreeViewColumn o, Gtk.Widget.IsWidget a) => a -> IO (GValueConstruct o)
constructTreeViewColumnWidget val = constructObjectPropertyObject "widget" (Just val)
clearTreeViewColumnWidget :: (MonadIO m, IsTreeViewColumn o) => o -> m ()
clearTreeViewColumnWidget obj = liftIO $ setObjectPropertyObject obj "widget" (Nothing :: Maybe Gtk.Widget.Widget)
#if ENABLE_OVERLOADING
data TreeViewColumnWidgetPropertyInfo
instance AttrInfo TreeViewColumnWidgetPropertyInfo where
type AttrAllowedOps TreeViewColumnWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint TreeViewColumnWidgetPropertyInfo = Gtk.Widget.IsWidget
type AttrBaseTypeConstraint TreeViewColumnWidgetPropertyInfo = IsTreeViewColumn
type AttrGetType TreeViewColumnWidgetPropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel TreeViewColumnWidgetPropertyInfo = "widget"
type AttrOrigin TreeViewColumnWidgetPropertyInfo = TreeViewColumn
attrGet _ = getTreeViewColumnWidget
attrSet _ = setTreeViewColumnWidget
attrConstruct _ = constructTreeViewColumnWidget
attrClear _ = clearTreeViewColumnWidget
#endif
getTreeViewColumnWidth :: (MonadIO m, IsTreeViewColumn o) => o -> m Int32
getTreeViewColumnWidth obj = liftIO $ getObjectPropertyInt32 obj "width"
#if ENABLE_OVERLOADING
data TreeViewColumnWidthPropertyInfo
instance AttrInfo TreeViewColumnWidthPropertyInfo where
type AttrAllowedOps TreeViewColumnWidthPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnWidthPropertyInfo = (~) ()
type AttrBaseTypeConstraint TreeViewColumnWidthPropertyInfo = IsTreeViewColumn
type AttrGetType TreeViewColumnWidthPropertyInfo = Int32
type AttrLabel TreeViewColumnWidthPropertyInfo = "width"
type AttrOrigin TreeViewColumnWidthPropertyInfo = TreeViewColumn
attrGet _ = getTreeViewColumnWidth
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getTreeViewColumnXOffset :: (MonadIO m, IsTreeViewColumn o) => o -> m Int32
getTreeViewColumnXOffset obj = liftIO $ getObjectPropertyInt32 obj "x-offset"
#if ENABLE_OVERLOADING
data TreeViewColumnXOffsetPropertyInfo
instance AttrInfo TreeViewColumnXOffsetPropertyInfo where
type AttrAllowedOps TreeViewColumnXOffsetPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnXOffsetPropertyInfo = (~) ()
type AttrBaseTypeConstraint TreeViewColumnXOffsetPropertyInfo = IsTreeViewColumn
type AttrGetType TreeViewColumnXOffsetPropertyInfo = Int32
type AttrLabel TreeViewColumnXOffsetPropertyInfo = "x-offset"
type AttrOrigin TreeViewColumnXOffsetPropertyInfo = TreeViewColumn
attrGet _ = getTreeViewColumnXOffset
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList TreeViewColumn
type instance O.AttributeList TreeViewColumn = TreeViewColumnAttributeList
type TreeViewColumnAttributeList = ('[ '("alignment", TreeViewColumnAlignmentPropertyInfo), '("cellArea", TreeViewColumnCellAreaPropertyInfo), '("clickable", TreeViewColumnClickablePropertyInfo), '("expand", TreeViewColumnExpandPropertyInfo), '("fixedWidth", TreeViewColumnFixedWidthPropertyInfo), '("maxWidth", TreeViewColumnMaxWidthPropertyInfo), '("minWidth", TreeViewColumnMinWidthPropertyInfo), '("reorderable", TreeViewColumnReorderablePropertyInfo), '("resizable", TreeViewColumnResizablePropertyInfo), '("sizing", TreeViewColumnSizingPropertyInfo), '("sortColumnId", TreeViewColumnSortColumnIdPropertyInfo), '("sortIndicator", TreeViewColumnSortIndicatorPropertyInfo), '("sortOrder", TreeViewColumnSortOrderPropertyInfo), '("spacing", TreeViewColumnSpacingPropertyInfo), '("title", TreeViewColumnTitlePropertyInfo), '("visible", TreeViewColumnVisiblePropertyInfo), '("widget", TreeViewColumnWidgetPropertyInfo), '("width", TreeViewColumnWidthPropertyInfo), '("xOffset", TreeViewColumnXOffsetPropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
treeViewColumnAlignment :: AttrLabelProxy "alignment"
treeViewColumnAlignment = AttrLabelProxy
treeViewColumnCellArea :: AttrLabelProxy "cellArea"
treeViewColumnCellArea = AttrLabelProxy
treeViewColumnClickable :: AttrLabelProxy "clickable"
treeViewColumnClickable = AttrLabelProxy
treeViewColumnExpand :: AttrLabelProxy "expand"
treeViewColumnExpand = AttrLabelProxy
treeViewColumnFixedWidth :: AttrLabelProxy "fixedWidth"
treeViewColumnFixedWidth = AttrLabelProxy
treeViewColumnMaxWidth :: AttrLabelProxy "maxWidth"
treeViewColumnMaxWidth = AttrLabelProxy
treeViewColumnMinWidth :: AttrLabelProxy "minWidth"
treeViewColumnMinWidth = AttrLabelProxy
treeViewColumnReorderable :: AttrLabelProxy "reorderable"
treeViewColumnReorderable = AttrLabelProxy
treeViewColumnResizable :: AttrLabelProxy "resizable"
treeViewColumnResizable = AttrLabelProxy
treeViewColumnSizing :: AttrLabelProxy "sizing"
treeViewColumnSizing = AttrLabelProxy
treeViewColumnSortColumnId :: AttrLabelProxy "sortColumnId"
treeViewColumnSortColumnId = AttrLabelProxy
treeViewColumnSortIndicator :: AttrLabelProxy "sortIndicator"
treeViewColumnSortIndicator = AttrLabelProxy
treeViewColumnSortOrder :: AttrLabelProxy "sortOrder"
treeViewColumnSortOrder = AttrLabelProxy
treeViewColumnSpacing :: AttrLabelProxy "spacing"
treeViewColumnSpacing = AttrLabelProxy
treeViewColumnTitle :: AttrLabelProxy "title"
treeViewColumnTitle = AttrLabelProxy
treeViewColumnVisible :: AttrLabelProxy "visible"
treeViewColumnVisible = AttrLabelProxy
treeViewColumnWidget :: AttrLabelProxy "widget"
treeViewColumnWidget = AttrLabelProxy
treeViewColumnWidth :: AttrLabelProxy "width"
treeViewColumnWidth = AttrLabelProxy
treeViewColumnXOffset :: AttrLabelProxy "xOffset"
treeViewColumnXOffset = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
data TreeViewColumnClickedSignalInfo
instance SignalInfo TreeViewColumnClickedSignalInfo where
type HaskellCallbackType TreeViewColumnClickedSignalInfo = TreeViewColumnClickedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_TreeViewColumnClickedCallback cb
cb'' <- mk_TreeViewColumnClickedCallback cb'
connectSignalFunPtr obj "clicked" cb'' connectMode
type instance O.SignalList TreeViewColumn = TreeViewColumnSignalList
type TreeViewColumnSignalList = ('[ '("clicked", TreeViewColumnClickedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_tree_view_column_new" gtk_tree_view_column_new ::
IO (Ptr TreeViewColumn)
treeViewColumnNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m TreeViewColumn
treeViewColumnNew = liftIO $ do
result <- gtk_tree_view_column_new
checkUnexpectedReturnNULL "treeViewColumnNew" result
result' <- (newObject TreeViewColumn) result
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "gtk_tree_view_column_new_with_area" gtk_tree_view_column_new_with_area ::
Ptr Gtk.CellArea.CellArea ->
IO (Ptr TreeViewColumn)
treeViewColumnNewWithArea ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.CellArea.IsCellArea a) =>
a
-> m TreeViewColumn
treeViewColumnNewWithArea area = liftIO $ do
area' <- unsafeManagedPtrCastPtr area
result <- gtk_tree_view_column_new_with_area area'
checkUnexpectedReturnNULL "treeViewColumnNewWithArea" result
result' <- (newObject TreeViewColumn) result
touchManagedPtr area
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "gtk_tree_view_column_add_attribute" gtk_tree_view_column_add_attribute ::
Ptr TreeViewColumn ->
Ptr Gtk.CellRenderer.CellRenderer ->
CString ->
Int32 ->
IO ()
treeViewColumnAddAttribute ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> b
-> T.Text
-> Int32
-> m ()
treeViewColumnAddAttribute treeColumn cellRenderer attribute column = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
cellRenderer' <- unsafeManagedPtrCastPtr cellRenderer
attribute' <- textToCString attribute
gtk_tree_view_column_add_attribute treeColumn' cellRenderer' attribute' column
touchManagedPtr treeColumn
touchManagedPtr cellRenderer
freeMem attribute'
return ()
#if ENABLE_OVERLOADING
data TreeViewColumnAddAttributeMethodInfo
instance (signature ~ (b -> T.Text -> Int32 -> m ()), MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) => O.MethodInfo TreeViewColumnAddAttributeMethodInfo a signature where
overloadedMethod _ = treeViewColumnAddAttribute
#endif
foreign import ccall "gtk_tree_view_column_cell_get_position" gtk_tree_view_column_cell_get_position ::
Ptr TreeViewColumn ->
Ptr Gtk.CellRenderer.CellRenderer ->
Ptr Int32 ->
Ptr Int32 ->
IO CInt
treeViewColumnCellGetPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> b
-> m ((Bool, Int32, Int32))
treeViewColumnCellGetPosition treeColumn cellRenderer = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
cellRenderer' <- unsafeManagedPtrCastPtr cellRenderer
xOffset <- allocMem :: IO (Ptr Int32)
width <- allocMem :: IO (Ptr Int32)
result <- gtk_tree_view_column_cell_get_position treeColumn' cellRenderer' xOffset width
let result' = (/= 0) result
xOffset' <- peek xOffset
width' <- peek width
touchManagedPtr treeColumn
touchManagedPtr cellRenderer
freeMem xOffset
freeMem width
return (result', xOffset', width')
#if ENABLE_OVERLOADING
data TreeViewColumnCellGetPositionMethodInfo
instance (signature ~ (b -> m ((Bool, Int32, Int32))), MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) => O.MethodInfo TreeViewColumnCellGetPositionMethodInfo a signature where
overloadedMethod _ = treeViewColumnCellGetPosition
#endif
foreign import ccall "gtk_tree_view_column_cell_get_size" gtk_tree_view_column_cell_get_size ::
Ptr TreeViewColumn ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr Int32 ->
Ptr Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
treeViewColumnCellGetSize ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> Maybe (Gdk.Rectangle.Rectangle)
-> m ((Int32, Int32, Int32, Int32))
treeViewColumnCellGetSize treeColumn cellArea = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
maybeCellArea <- case cellArea of
Nothing -> return nullPtr
Just jCellArea -> do
jCellArea' <- unsafeManagedPtrGetPtr jCellArea
return jCellArea'
xOffset <- allocMem :: IO (Ptr Int32)
yOffset <- allocMem :: IO (Ptr Int32)
width <- allocMem :: IO (Ptr Int32)
height <- allocMem :: IO (Ptr Int32)
gtk_tree_view_column_cell_get_size treeColumn' maybeCellArea xOffset yOffset width height
xOffset' <- peek xOffset
yOffset' <- peek yOffset
width' <- peek width
height' <- peek height
touchManagedPtr treeColumn
whenJust cellArea touchManagedPtr
freeMem xOffset
freeMem yOffset
freeMem width
freeMem height
return (xOffset', yOffset', width', height')
#if ENABLE_OVERLOADING
data TreeViewColumnCellGetSizeMethodInfo
instance (signature ~ (Maybe (Gdk.Rectangle.Rectangle) -> m ((Int32, Int32, Int32, Int32))), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnCellGetSizeMethodInfo a signature where
overloadedMethod _ = treeViewColumnCellGetSize
#endif
foreign import ccall "gtk_tree_view_column_cell_is_visible" gtk_tree_view_column_cell_is_visible ::
Ptr TreeViewColumn ->
IO CInt
treeViewColumnCellIsVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Bool
treeViewColumnCellIsVisible treeColumn = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
result <- gtk_tree_view_column_cell_is_visible treeColumn'
let result' = (/= 0) result
touchManagedPtr treeColumn
return result'
#if ENABLE_OVERLOADING
data TreeViewColumnCellIsVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnCellIsVisibleMethodInfo a signature where
overloadedMethod _ = treeViewColumnCellIsVisible
#endif
foreign import ccall "gtk_tree_view_column_cell_set_cell_data" gtk_tree_view_column_cell_set_cell_data ::
Ptr TreeViewColumn ->
Ptr Gtk.TreeModel.TreeModel ->
Ptr Gtk.TreeIter.TreeIter ->
CInt ->
CInt ->
IO ()
treeViewColumnCellSetCellData ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a, Gtk.TreeModel.IsTreeModel b) =>
a
-> b
-> Gtk.TreeIter.TreeIter
-> Bool
-> Bool
-> m ()
treeViewColumnCellSetCellData treeColumn treeModel iter isExpander isExpanded = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
treeModel' <- unsafeManagedPtrCastPtr treeModel
iter' <- unsafeManagedPtrGetPtr iter
let isExpander' = (fromIntegral . fromEnum) isExpander
let isExpanded' = (fromIntegral . fromEnum) isExpanded
gtk_tree_view_column_cell_set_cell_data treeColumn' treeModel' iter' isExpander' isExpanded'
touchManagedPtr treeColumn
touchManagedPtr treeModel
touchManagedPtr iter
return ()
#if ENABLE_OVERLOADING
data TreeViewColumnCellSetCellDataMethodInfo
instance (signature ~ (b -> Gtk.TreeIter.TreeIter -> Bool -> Bool -> m ()), MonadIO m, IsTreeViewColumn a, Gtk.TreeModel.IsTreeModel b) => O.MethodInfo TreeViewColumnCellSetCellDataMethodInfo a signature where
overloadedMethod _ = treeViewColumnCellSetCellData
#endif
foreign import ccall "gtk_tree_view_column_clear" gtk_tree_view_column_clear ::
Ptr TreeViewColumn ->
IO ()
treeViewColumnClear ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m ()
treeViewColumnClear treeColumn = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
gtk_tree_view_column_clear treeColumn'
touchManagedPtr treeColumn
return ()
#if ENABLE_OVERLOADING
data TreeViewColumnClearMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnClearMethodInfo a signature where
overloadedMethod _ = treeViewColumnClear
#endif
foreign import ccall "gtk_tree_view_column_clear_attributes" gtk_tree_view_column_clear_attributes ::
Ptr TreeViewColumn ->
Ptr Gtk.CellRenderer.CellRenderer ->
IO ()
treeViewColumnClearAttributes ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> b
-> m ()
treeViewColumnClearAttributes treeColumn cellRenderer = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
cellRenderer' <- unsafeManagedPtrCastPtr cellRenderer
gtk_tree_view_column_clear_attributes treeColumn' cellRenderer'
touchManagedPtr treeColumn
touchManagedPtr cellRenderer
return ()
#if ENABLE_OVERLOADING
data TreeViewColumnClearAttributesMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) => O.MethodInfo TreeViewColumnClearAttributesMethodInfo a signature where
overloadedMethod _ = treeViewColumnClearAttributes
#endif
foreign import ccall "gtk_tree_view_column_clicked" gtk_tree_view_column_clicked ::
Ptr TreeViewColumn ->
IO ()
treeViewColumnClicked ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m ()
treeViewColumnClicked treeColumn = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
gtk_tree_view_column_clicked treeColumn'
touchManagedPtr treeColumn
return ()
#if ENABLE_OVERLOADING
data TreeViewColumnClickedMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnClickedMethodInfo a signature where
overloadedMethod _ = treeViewColumnClicked
#endif
foreign import ccall "gtk_tree_view_column_focus_cell" gtk_tree_view_column_focus_cell ::
Ptr TreeViewColumn ->
Ptr Gtk.CellRenderer.CellRenderer ->
IO ()
treeViewColumnFocusCell ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> b
-> m ()
treeViewColumnFocusCell treeColumn cell = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
cell' <- unsafeManagedPtrCastPtr cell
gtk_tree_view_column_focus_cell treeColumn' cell'
touchManagedPtr treeColumn
touchManagedPtr cell
return ()
#if ENABLE_OVERLOADING
data TreeViewColumnFocusCellMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) => O.MethodInfo TreeViewColumnFocusCellMethodInfo a signature where
overloadedMethod _ = treeViewColumnFocusCell
#endif
foreign import ccall "gtk_tree_view_column_get_alignment" gtk_tree_view_column_get_alignment ::
Ptr TreeViewColumn ->
IO CFloat
treeViewColumnGetAlignment ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Float
treeViewColumnGetAlignment treeColumn = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
result <- gtk_tree_view_column_get_alignment treeColumn'
let result' = realToFrac result
touchManagedPtr treeColumn
return result'
#if ENABLE_OVERLOADING
data TreeViewColumnGetAlignmentMethodInfo
instance (signature ~ (m Float), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnGetAlignmentMethodInfo a signature where
overloadedMethod _ = treeViewColumnGetAlignment
#endif
foreign import ccall "gtk_tree_view_column_get_button" gtk_tree_view_column_get_button ::
Ptr TreeViewColumn ->
IO (Ptr Gtk.Widget.Widget)
treeViewColumnGetButton ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Gtk.Widget.Widget
treeViewColumnGetButton treeColumn = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
result <- gtk_tree_view_column_get_button treeColumn'
checkUnexpectedReturnNULL "treeViewColumnGetButton" result
result' <- (newObject Gtk.Widget.Widget) result
touchManagedPtr treeColumn
return result'
#if ENABLE_OVERLOADING
data TreeViewColumnGetButtonMethodInfo
instance (signature ~ (m Gtk.Widget.Widget), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnGetButtonMethodInfo a signature where
overloadedMethod _ = treeViewColumnGetButton
#endif
foreign import ccall "gtk_tree_view_column_get_clickable" gtk_tree_view_column_get_clickable ::
Ptr TreeViewColumn ->
IO CInt
treeViewColumnGetClickable ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Bool
treeViewColumnGetClickable treeColumn = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
result <- gtk_tree_view_column_get_clickable treeColumn'
let result' = (/= 0) result
touchManagedPtr treeColumn
return result'
#if ENABLE_OVERLOADING
data TreeViewColumnGetClickableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnGetClickableMethodInfo a signature where
overloadedMethod _ = treeViewColumnGetClickable
#endif
foreign import ccall "gtk_tree_view_column_get_expand" gtk_tree_view_column_get_expand ::
Ptr TreeViewColumn ->
IO CInt
treeViewColumnGetExpand ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Bool
treeViewColumnGetExpand treeColumn = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
result <- gtk_tree_view_column_get_expand treeColumn'
let result' = (/= 0) result
touchManagedPtr treeColumn
return result'
#if ENABLE_OVERLOADING
data TreeViewColumnGetExpandMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnGetExpandMethodInfo a signature where
overloadedMethod _ = treeViewColumnGetExpand
#endif
foreign import ccall "gtk_tree_view_column_get_fixed_width" gtk_tree_view_column_get_fixed_width ::
Ptr TreeViewColumn ->
IO Int32
treeViewColumnGetFixedWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Int32
treeViewColumnGetFixedWidth treeColumn = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
result <- gtk_tree_view_column_get_fixed_width treeColumn'
touchManagedPtr treeColumn
return result
#if ENABLE_OVERLOADING
data TreeViewColumnGetFixedWidthMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnGetFixedWidthMethodInfo a signature where
overloadedMethod _ = treeViewColumnGetFixedWidth
#endif
foreign import ccall "gtk_tree_view_column_get_max_width" gtk_tree_view_column_get_max_width ::
Ptr TreeViewColumn ->
IO Int32
treeViewColumnGetMaxWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Int32
treeViewColumnGetMaxWidth treeColumn = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
result <- gtk_tree_view_column_get_max_width treeColumn'
touchManagedPtr treeColumn
return result
#if ENABLE_OVERLOADING
data TreeViewColumnGetMaxWidthMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnGetMaxWidthMethodInfo a signature where
overloadedMethod _ = treeViewColumnGetMaxWidth
#endif
foreign import ccall "gtk_tree_view_column_get_min_width" gtk_tree_view_column_get_min_width ::
Ptr TreeViewColumn ->
IO Int32
treeViewColumnGetMinWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Int32
treeViewColumnGetMinWidth treeColumn = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
result <- gtk_tree_view_column_get_min_width treeColumn'
touchManagedPtr treeColumn
return result
#if ENABLE_OVERLOADING
data TreeViewColumnGetMinWidthMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnGetMinWidthMethodInfo a signature where
overloadedMethod _ = treeViewColumnGetMinWidth
#endif
foreign import ccall "gtk_tree_view_column_get_reorderable" gtk_tree_view_column_get_reorderable ::
Ptr TreeViewColumn ->
IO CInt
treeViewColumnGetReorderable ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Bool
treeViewColumnGetReorderable treeColumn = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
result <- gtk_tree_view_column_get_reorderable treeColumn'
let result' = (/= 0) result
touchManagedPtr treeColumn
return result'
#if ENABLE_OVERLOADING
data TreeViewColumnGetReorderableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnGetReorderableMethodInfo a signature where
overloadedMethod _ = treeViewColumnGetReorderable
#endif
foreign import ccall "gtk_tree_view_column_get_resizable" gtk_tree_view_column_get_resizable ::
Ptr TreeViewColumn ->
IO CInt
treeViewColumnGetResizable ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Bool
treeViewColumnGetResizable treeColumn = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
result <- gtk_tree_view_column_get_resizable treeColumn'
let result' = (/= 0) result
touchManagedPtr treeColumn
return result'
#if ENABLE_OVERLOADING
data TreeViewColumnGetResizableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnGetResizableMethodInfo a signature where
overloadedMethod _ = treeViewColumnGetResizable
#endif
foreign import ccall "gtk_tree_view_column_get_sizing" gtk_tree_view_column_get_sizing ::
Ptr TreeViewColumn ->
IO CUInt
treeViewColumnGetSizing ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Gtk.Enums.TreeViewColumnSizing
treeViewColumnGetSizing treeColumn = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
result <- gtk_tree_view_column_get_sizing treeColumn'
let result' = (toEnum . fromIntegral) result
touchManagedPtr treeColumn
return result'
#if ENABLE_OVERLOADING
data TreeViewColumnGetSizingMethodInfo
instance (signature ~ (m Gtk.Enums.TreeViewColumnSizing), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnGetSizingMethodInfo a signature where
overloadedMethod _ = treeViewColumnGetSizing
#endif
foreign import ccall "gtk_tree_view_column_get_sort_column_id" gtk_tree_view_column_get_sort_column_id ::
Ptr TreeViewColumn ->
IO Int32
treeViewColumnGetSortColumnId ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Int32
treeViewColumnGetSortColumnId treeColumn = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
result <- gtk_tree_view_column_get_sort_column_id treeColumn'
touchManagedPtr treeColumn
return result
#if ENABLE_OVERLOADING
data TreeViewColumnGetSortColumnIdMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnGetSortColumnIdMethodInfo a signature where
overloadedMethod _ = treeViewColumnGetSortColumnId
#endif
foreign import ccall "gtk_tree_view_column_get_sort_indicator" gtk_tree_view_column_get_sort_indicator ::
Ptr TreeViewColumn ->
IO CInt
treeViewColumnGetSortIndicator ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Bool
treeViewColumnGetSortIndicator treeColumn = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
result <- gtk_tree_view_column_get_sort_indicator treeColumn'
let result' = (/= 0) result
touchManagedPtr treeColumn
return result'
#if ENABLE_OVERLOADING
data TreeViewColumnGetSortIndicatorMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnGetSortIndicatorMethodInfo a signature where
overloadedMethod _ = treeViewColumnGetSortIndicator
#endif
foreign import ccall "gtk_tree_view_column_get_sort_order" gtk_tree_view_column_get_sort_order ::
Ptr TreeViewColumn ->
IO CUInt
treeViewColumnGetSortOrder ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Gtk.Enums.SortType
treeViewColumnGetSortOrder treeColumn = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
result <- gtk_tree_view_column_get_sort_order treeColumn'
let result' = (toEnum . fromIntegral) result
touchManagedPtr treeColumn
return result'
#if ENABLE_OVERLOADING
data TreeViewColumnGetSortOrderMethodInfo
instance (signature ~ (m Gtk.Enums.SortType), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnGetSortOrderMethodInfo a signature where
overloadedMethod _ = treeViewColumnGetSortOrder
#endif
foreign import ccall "gtk_tree_view_column_get_spacing" gtk_tree_view_column_get_spacing ::
Ptr TreeViewColumn ->
IO Int32
treeViewColumnGetSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Int32
treeViewColumnGetSpacing treeColumn = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
result <- gtk_tree_view_column_get_spacing treeColumn'
touchManagedPtr treeColumn
return result
#if ENABLE_OVERLOADING
data TreeViewColumnGetSpacingMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnGetSpacingMethodInfo a signature where
overloadedMethod _ = treeViewColumnGetSpacing
#endif
foreign import ccall "gtk_tree_view_column_get_title" gtk_tree_view_column_get_title ::
Ptr TreeViewColumn ->
IO CString
treeViewColumnGetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m T.Text
treeViewColumnGetTitle treeColumn = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
result <- gtk_tree_view_column_get_title treeColumn'
checkUnexpectedReturnNULL "treeViewColumnGetTitle" result
result' <- cstringToText result
touchManagedPtr treeColumn
return result'
#if ENABLE_OVERLOADING
data TreeViewColumnGetTitleMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnGetTitleMethodInfo a signature where
overloadedMethod _ = treeViewColumnGetTitle
#endif
foreign import ccall "gtk_tree_view_column_get_tree_view" gtk_tree_view_column_get_tree_view ::
Ptr TreeViewColumn ->
IO (Ptr Gtk.Widget.Widget)
treeViewColumnGetTreeView ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m (Maybe Gtk.Widget.Widget)
treeViewColumnGetTreeView treeColumn = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
result <- gtk_tree_view_column_get_tree_view treeColumn'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject Gtk.Widget.Widget) result'
return result''
touchManagedPtr treeColumn
return maybeResult
#if ENABLE_OVERLOADING
data TreeViewColumnGetTreeViewMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnGetTreeViewMethodInfo a signature where
overloadedMethod _ = treeViewColumnGetTreeView
#endif
foreign import ccall "gtk_tree_view_column_get_visible" gtk_tree_view_column_get_visible ::
Ptr TreeViewColumn ->
IO CInt
treeViewColumnGetVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Bool
treeViewColumnGetVisible treeColumn = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
result <- gtk_tree_view_column_get_visible treeColumn'
let result' = (/= 0) result
touchManagedPtr treeColumn
return result'
#if ENABLE_OVERLOADING
data TreeViewColumnGetVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnGetVisibleMethodInfo a signature where
overloadedMethod _ = treeViewColumnGetVisible
#endif
foreign import ccall "gtk_tree_view_column_get_widget" gtk_tree_view_column_get_widget ::
Ptr TreeViewColumn ->
IO (Ptr Gtk.Widget.Widget)
treeViewColumnGetWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m (Maybe Gtk.Widget.Widget)
treeViewColumnGetWidget treeColumn = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
result <- gtk_tree_view_column_get_widget treeColumn'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject Gtk.Widget.Widget) result'
return result''
touchManagedPtr treeColumn
return maybeResult
#if ENABLE_OVERLOADING
data TreeViewColumnGetWidgetMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnGetWidgetMethodInfo a signature where
overloadedMethod _ = treeViewColumnGetWidget
#endif
foreign import ccall "gtk_tree_view_column_get_width" gtk_tree_view_column_get_width ::
Ptr TreeViewColumn ->
IO Int32
treeViewColumnGetWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Int32
treeViewColumnGetWidth treeColumn = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
result <- gtk_tree_view_column_get_width treeColumn'
touchManagedPtr treeColumn
return result
#if ENABLE_OVERLOADING
data TreeViewColumnGetWidthMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnGetWidthMethodInfo a signature where
overloadedMethod _ = treeViewColumnGetWidth
#endif
foreign import ccall "gtk_tree_view_column_get_x_offset" gtk_tree_view_column_get_x_offset ::
Ptr TreeViewColumn ->
IO Int32
treeViewColumnGetXOffset ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Int32
treeViewColumnGetXOffset treeColumn = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
result <- gtk_tree_view_column_get_x_offset treeColumn'
touchManagedPtr treeColumn
return result
#if ENABLE_OVERLOADING
data TreeViewColumnGetXOffsetMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnGetXOffsetMethodInfo a signature where
overloadedMethod _ = treeViewColumnGetXOffset
#endif
foreign import ccall "gtk_tree_view_column_pack_end" gtk_tree_view_column_pack_end ::
Ptr TreeViewColumn ->
Ptr Gtk.CellRenderer.CellRenderer ->
CInt ->
IO ()
treeViewColumnPackEnd ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> b
-> Bool
-> m ()
treeViewColumnPackEnd treeColumn cell expand = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
cell' <- unsafeManagedPtrCastPtr cell
let expand' = (fromIntegral . fromEnum) expand
gtk_tree_view_column_pack_end treeColumn' cell' expand'
touchManagedPtr treeColumn
touchManagedPtr cell
return ()
#if ENABLE_OVERLOADING
data TreeViewColumnPackEndMethodInfo
instance (signature ~ (b -> Bool -> m ()), MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) => O.MethodInfo TreeViewColumnPackEndMethodInfo a signature where
overloadedMethod _ = treeViewColumnPackEnd
#endif
foreign import ccall "gtk_tree_view_column_pack_start" gtk_tree_view_column_pack_start ::
Ptr TreeViewColumn ->
Ptr Gtk.CellRenderer.CellRenderer ->
CInt ->
IO ()
treeViewColumnPackStart ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> b
-> Bool
-> m ()
treeViewColumnPackStart treeColumn cell expand = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
cell' <- unsafeManagedPtrCastPtr cell
let expand' = (fromIntegral . fromEnum) expand
gtk_tree_view_column_pack_start treeColumn' cell' expand'
touchManagedPtr treeColumn
touchManagedPtr cell
return ()
#if ENABLE_OVERLOADING
data TreeViewColumnPackStartMethodInfo
instance (signature ~ (b -> Bool -> m ()), MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) => O.MethodInfo TreeViewColumnPackStartMethodInfo a signature where
overloadedMethod _ = treeViewColumnPackStart
#endif
foreign import ccall "gtk_tree_view_column_queue_resize" gtk_tree_view_column_queue_resize ::
Ptr TreeViewColumn ->
IO ()
treeViewColumnQueueResize ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m ()
treeViewColumnQueueResize treeColumn = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
gtk_tree_view_column_queue_resize treeColumn'
touchManagedPtr treeColumn
return ()
#if ENABLE_OVERLOADING
data TreeViewColumnQueueResizeMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnQueueResizeMethodInfo a signature where
overloadedMethod _ = treeViewColumnQueueResize
#endif
foreign import ccall "gtk_tree_view_column_set_alignment" gtk_tree_view_column_set_alignment ::
Ptr TreeViewColumn ->
CFloat ->
IO ()
treeViewColumnSetAlignment ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> Float
-> m ()
treeViewColumnSetAlignment treeColumn xalign = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
let xalign' = realToFrac xalign
gtk_tree_view_column_set_alignment treeColumn' xalign'
touchManagedPtr treeColumn
return ()
#if ENABLE_OVERLOADING
data TreeViewColumnSetAlignmentMethodInfo
instance (signature ~ (Float -> m ()), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnSetAlignmentMethodInfo a signature where
overloadedMethod _ = treeViewColumnSetAlignment
#endif
foreign import ccall "gtk_tree_view_column_set_cell_data_func" gtk_tree_view_column_set_cell_data_func ::
Ptr TreeViewColumn ->
Ptr Gtk.CellRenderer.CellRenderer ->
FunPtr Gtk.Callbacks.C_TreeCellDataFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
treeViewColumnSetCellDataFunc ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> b
-> Maybe (Gtk.Callbacks.TreeCellDataFunc)
-> m ()
treeViewColumnSetCellDataFunc treeColumn cellRenderer func = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
cellRenderer' <- unsafeManagedPtrCastPtr cellRenderer
maybeFunc <- case func of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jFunc -> do
jFunc' <- Gtk.Callbacks.mk_TreeCellDataFunc (Gtk.Callbacks.wrap_TreeCellDataFunc Nothing (Gtk.Callbacks.drop_closures_TreeCellDataFunc jFunc))
return jFunc'
let funcData = castFunPtrToPtr maybeFunc
let destroy = safeFreeFunPtrPtr
gtk_tree_view_column_set_cell_data_func treeColumn' cellRenderer' maybeFunc funcData destroy
touchManagedPtr treeColumn
touchManagedPtr cellRenderer
return ()
#if ENABLE_OVERLOADING
data TreeViewColumnSetCellDataFuncMethodInfo
instance (signature ~ (b -> Maybe (Gtk.Callbacks.TreeCellDataFunc) -> m ()), MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) => O.MethodInfo TreeViewColumnSetCellDataFuncMethodInfo a signature where
overloadedMethod _ = treeViewColumnSetCellDataFunc
#endif
foreign import ccall "gtk_tree_view_column_set_clickable" gtk_tree_view_column_set_clickable ::
Ptr TreeViewColumn ->
CInt ->
IO ()
treeViewColumnSetClickable ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> Bool
-> m ()
treeViewColumnSetClickable treeColumn clickable = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
let clickable' = (fromIntegral . fromEnum) clickable
gtk_tree_view_column_set_clickable treeColumn' clickable'
touchManagedPtr treeColumn
return ()
#if ENABLE_OVERLOADING
data TreeViewColumnSetClickableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnSetClickableMethodInfo a signature where
overloadedMethod _ = treeViewColumnSetClickable
#endif
foreign import ccall "gtk_tree_view_column_set_expand" gtk_tree_view_column_set_expand ::
Ptr TreeViewColumn ->
CInt ->
IO ()
treeViewColumnSetExpand ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> Bool
-> m ()
treeViewColumnSetExpand treeColumn expand = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
let expand' = (fromIntegral . fromEnum) expand
gtk_tree_view_column_set_expand treeColumn' expand'
touchManagedPtr treeColumn
return ()
#if ENABLE_OVERLOADING
data TreeViewColumnSetExpandMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnSetExpandMethodInfo a signature where
overloadedMethod _ = treeViewColumnSetExpand
#endif
foreign import ccall "gtk_tree_view_column_set_fixed_width" gtk_tree_view_column_set_fixed_width ::
Ptr TreeViewColumn ->
Int32 ->
IO ()
treeViewColumnSetFixedWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> Int32
-> m ()
treeViewColumnSetFixedWidth treeColumn fixedWidth = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
gtk_tree_view_column_set_fixed_width treeColumn' fixedWidth
touchManagedPtr treeColumn
return ()
#if ENABLE_OVERLOADING
data TreeViewColumnSetFixedWidthMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnSetFixedWidthMethodInfo a signature where
overloadedMethod _ = treeViewColumnSetFixedWidth
#endif
foreign import ccall "gtk_tree_view_column_set_max_width" gtk_tree_view_column_set_max_width ::
Ptr TreeViewColumn ->
Int32 ->
IO ()
treeViewColumnSetMaxWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> Int32
-> m ()
treeViewColumnSetMaxWidth treeColumn maxWidth = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
gtk_tree_view_column_set_max_width treeColumn' maxWidth
touchManagedPtr treeColumn
return ()
#if ENABLE_OVERLOADING
data TreeViewColumnSetMaxWidthMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnSetMaxWidthMethodInfo a signature where
overloadedMethod _ = treeViewColumnSetMaxWidth
#endif
foreign import ccall "gtk_tree_view_column_set_min_width" gtk_tree_view_column_set_min_width ::
Ptr TreeViewColumn ->
Int32 ->
IO ()
treeViewColumnSetMinWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> Int32
-> m ()
treeViewColumnSetMinWidth treeColumn minWidth = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
gtk_tree_view_column_set_min_width treeColumn' minWidth
touchManagedPtr treeColumn
return ()
#if ENABLE_OVERLOADING
data TreeViewColumnSetMinWidthMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnSetMinWidthMethodInfo a signature where
overloadedMethod _ = treeViewColumnSetMinWidth
#endif
foreign import ccall "gtk_tree_view_column_set_reorderable" gtk_tree_view_column_set_reorderable ::
Ptr TreeViewColumn ->
CInt ->
IO ()
treeViewColumnSetReorderable ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> Bool
-> m ()
treeViewColumnSetReorderable treeColumn reorderable = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
let reorderable' = (fromIntegral . fromEnum) reorderable
gtk_tree_view_column_set_reorderable treeColumn' reorderable'
touchManagedPtr treeColumn
return ()
#if ENABLE_OVERLOADING
data TreeViewColumnSetReorderableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnSetReorderableMethodInfo a signature where
overloadedMethod _ = treeViewColumnSetReorderable
#endif
foreign import ccall "gtk_tree_view_column_set_resizable" gtk_tree_view_column_set_resizable ::
Ptr TreeViewColumn ->
CInt ->
IO ()
treeViewColumnSetResizable ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> Bool
-> m ()
treeViewColumnSetResizable treeColumn resizable = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
let resizable' = (fromIntegral . fromEnum) resizable
gtk_tree_view_column_set_resizable treeColumn' resizable'
touchManagedPtr treeColumn
return ()
#if ENABLE_OVERLOADING
data TreeViewColumnSetResizableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnSetResizableMethodInfo a signature where
overloadedMethod _ = treeViewColumnSetResizable
#endif
foreign import ccall "gtk_tree_view_column_set_sizing" gtk_tree_view_column_set_sizing ::
Ptr TreeViewColumn ->
CUInt ->
IO ()
treeViewColumnSetSizing ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> Gtk.Enums.TreeViewColumnSizing
-> m ()
treeViewColumnSetSizing treeColumn type_ = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
let type_' = (fromIntegral . fromEnum) type_
gtk_tree_view_column_set_sizing treeColumn' type_'
touchManagedPtr treeColumn
return ()
#if ENABLE_OVERLOADING
data TreeViewColumnSetSizingMethodInfo
instance (signature ~ (Gtk.Enums.TreeViewColumnSizing -> m ()), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnSetSizingMethodInfo a signature where
overloadedMethod _ = treeViewColumnSetSizing
#endif
foreign import ccall "gtk_tree_view_column_set_sort_column_id" gtk_tree_view_column_set_sort_column_id ::
Ptr TreeViewColumn ->
Int32 ->
IO ()
treeViewColumnSetSortColumnId ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> Int32
-> m ()
treeViewColumnSetSortColumnId treeColumn sortColumnId = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
gtk_tree_view_column_set_sort_column_id treeColumn' sortColumnId
touchManagedPtr treeColumn
return ()
#if ENABLE_OVERLOADING
data TreeViewColumnSetSortColumnIdMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnSetSortColumnIdMethodInfo a signature where
overloadedMethod _ = treeViewColumnSetSortColumnId
#endif
foreign import ccall "gtk_tree_view_column_set_sort_indicator" gtk_tree_view_column_set_sort_indicator ::
Ptr TreeViewColumn ->
CInt ->
IO ()
treeViewColumnSetSortIndicator ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> Bool
-> m ()
treeViewColumnSetSortIndicator treeColumn setting = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
let setting' = (fromIntegral . fromEnum) setting
gtk_tree_view_column_set_sort_indicator treeColumn' setting'
touchManagedPtr treeColumn
return ()
#if ENABLE_OVERLOADING
data TreeViewColumnSetSortIndicatorMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnSetSortIndicatorMethodInfo a signature where
overloadedMethod _ = treeViewColumnSetSortIndicator
#endif
foreign import ccall "gtk_tree_view_column_set_sort_order" gtk_tree_view_column_set_sort_order ::
Ptr TreeViewColumn ->
CUInt ->
IO ()
treeViewColumnSetSortOrder ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> Gtk.Enums.SortType
-> m ()
treeViewColumnSetSortOrder treeColumn order = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
let order' = (fromIntegral . fromEnum) order
gtk_tree_view_column_set_sort_order treeColumn' order'
touchManagedPtr treeColumn
return ()
#if ENABLE_OVERLOADING
data TreeViewColumnSetSortOrderMethodInfo
instance (signature ~ (Gtk.Enums.SortType -> m ()), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnSetSortOrderMethodInfo a signature where
overloadedMethod _ = treeViewColumnSetSortOrder
#endif
foreign import ccall "gtk_tree_view_column_set_spacing" gtk_tree_view_column_set_spacing ::
Ptr TreeViewColumn ->
Int32 ->
IO ()
treeViewColumnSetSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> Int32
-> m ()
treeViewColumnSetSpacing treeColumn spacing = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
gtk_tree_view_column_set_spacing treeColumn' spacing
touchManagedPtr treeColumn
return ()
#if ENABLE_OVERLOADING
data TreeViewColumnSetSpacingMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnSetSpacingMethodInfo a signature where
overloadedMethod _ = treeViewColumnSetSpacing
#endif
foreign import ccall "gtk_tree_view_column_set_title" gtk_tree_view_column_set_title ::
Ptr TreeViewColumn ->
CString ->
IO ()
treeViewColumnSetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> T.Text
-> m ()
treeViewColumnSetTitle treeColumn title = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
title' <- textToCString title
gtk_tree_view_column_set_title treeColumn' title'
touchManagedPtr treeColumn
freeMem title'
return ()
#if ENABLE_OVERLOADING
data TreeViewColumnSetTitleMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnSetTitleMethodInfo a signature where
overloadedMethod _ = treeViewColumnSetTitle
#endif
foreign import ccall "gtk_tree_view_column_set_visible" gtk_tree_view_column_set_visible ::
Ptr TreeViewColumn ->
CInt ->
IO ()
treeViewColumnSetVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> Bool
-> m ()
treeViewColumnSetVisible treeColumn visible = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
let visible' = (fromIntegral . fromEnum) visible
gtk_tree_view_column_set_visible treeColumn' visible'
touchManagedPtr treeColumn
return ()
#if ENABLE_OVERLOADING
data TreeViewColumnSetVisibleMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeViewColumn a) => O.MethodInfo TreeViewColumnSetVisibleMethodInfo a signature where
overloadedMethod _ = treeViewColumnSetVisible
#endif
foreign import ccall "gtk_tree_view_column_set_widget" gtk_tree_view_column_set_widget ::
Ptr TreeViewColumn ->
Ptr Gtk.Widget.Widget ->
IO ()
treeViewColumnSetWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
treeViewColumnSetWidget treeColumn widget = liftIO $ do
treeColumn' <- unsafeManagedPtrCastPtr treeColumn
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
jWidget' <- unsafeManagedPtrCastPtr jWidget
return jWidget'
gtk_tree_view_column_set_widget treeColumn' maybeWidget
touchManagedPtr treeColumn
whenJust widget touchManagedPtr
return ()
#if ENABLE_OVERLOADING
data TreeViewColumnSetWidgetMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsTreeViewColumn a, Gtk.Widget.IsWidget b) => O.MethodInfo TreeViewColumnSetWidgetMethodInfo a signature where
overloadedMethod _ = treeViewColumnSetWidget
#endif