gi-gtk-0.3.16.12: GI/Gtk/Objects/TreeViewColumn.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.Gtk.Objects.TreeViewColumn
(
-- * Exported types
TreeViewColumn(..) ,
TreeViewColumnK ,
toTreeViewColumn ,
noTreeViewColumn ,
-- * Methods
-- ** treeViewColumnAddAttribute
treeViewColumnAddAttribute ,
-- ** treeViewColumnCellGetPosition
treeViewColumnCellGetPosition ,
-- ** treeViewColumnCellGetSize
treeViewColumnCellGetSize ,
-- ** treeViewColumnCellIsVisible
treeViewColumnCellIsVisible ,
-- ** treeViewColumnCellSetCellData
treeViewColumnCellSetCellData ,
-- ** treeViewColumnClear
treeViewColumnClear ,
-- ** treeViewColumnClearAttributes
treeViewColumnClearAttributes ,
-- ** treeViewColumnClicked
treeViewColumnClicked ,
-- ** treeViewColumnFocusCell
treeViewColumnFocusCell ,
-- ** treeViewColumnGetAlignment
treeViewColumnGetAlignment ,
-- ** treeViewColumnGetButton
treeViewColumnGetButton ,
-- ** treeViewColumnGetClickable
treeViewColumnGetClickable ,
-- ** treeViewColumnGetExpand
treeViewColumnGetExpand ,
-- ** treeViewColumnGetFixedWidth
treeViewColumnGetFixedWidth ,
-- ** treeViewColumnGetMaxWidth
treeViewColumnGetMaxWidth ,
-- ** treeViewColumnGetMinWidth
treeViewColumnGetMinWidth ,
-- ** treeViewColumnGetReorderable
treeViewColumnGetReorderable ,
-- ** treeViewColumnGetResizable
treeViewColumnGetResizable ,
-- ** treeViewColumnGetSizing
treeViewColumnGetSizing ,
-- ** treeViewColumnGetSortColumnId
treeViewColumnGetSortColumnId ,
-- ** treeViewColumnGetSortIndicator
treeViewColumnGetSortIndicator ,
-- ** treeViewColumnGetSortOrder
treeViewColumnGetSortOrder ,
-- ** treeViewColumnGetSpacing
treeViewColumnGetSpacing ,
-- ** treeViewColumnGetTitle
treeViewColumnGetTitle ,
-- ** treeViewColumnGetTreeView
treeViewColumnGetTreeView ,
-- ** treeViewColumnGetVisible
treeViewColumnGetVisible ,
-- ** treeViewColumnGetWidget
treeViewColumnGetWidget ,
-- ** treeViewColumnGetWidth
treeViewColumnGetWidth ,
-- ** treeViewColumnGetXOffset
treeViewColumnGetXOffset ,
-- ** treeViewColumnNew
treeViewColumnNew ,
-- ** treeViewColumnNewWithArea
treeViewColumnNewWithArea ,
-- ** treeViewColumnPackEnd
treeViewColumnPackEnd ,
-- ** treeViewColumnPackStart
treeViewColumnPackStart ,
-- ** treeViewColumnQueueResize
treeViewColumnQueueResize ,
-- ** treeViewColumnSetAlignment
treeViewColumnSetAlignment ,
-- ** treeViewColumnSetCellDataFunc
treeViewColumnSetCellDataFunc ,
-- ** treeViewColumnSetClickable
treeViewColumnSetClickable ,
-- ** treeViewColumnSetExpand
treeViewColumnSetExpand ,
-- ** treeViewColumnSetFixedWidth
treeViewColumnSetFixedWidth ,
-- ** treeViewColumnSetMaxWidth
treeViewColumnSetMaxWidth ,
-- ** treeViewColumnSetMinWidth
treeViewColumnSetMinWidth ,
-- ** treeViewColumnSetReorderable
treeViewColumnSetReorderable ,
-- ** treeViewColumnSetResizable
treeViewColumnSetResizable ,
-- ** treeViewColumnSetSizing
treeViewColumnSetSizing ,
-- ** treeViewColumnSetSortColumnId
treeViewColumnSetSortColumnId ,
-- ** treeViewColumnSetSortIndicator
treeViewColumnSetSortIndicator ,
-- ** treeViewColumnSetSortOrder
treeViewColumnSetSortOrder ,
-- ** treeViewColumnSetSpacing
treeViewColumnSetSpacing ,
-- ** treeViewColumnSetTitle
treeViewColumnSetTitle ,
-- ** treeViewColumnSetVisible
treeViewColumnSetVisible ,
-- ** treeViewColumnSetWidget
treeViewColumnSetWidget ,
-- * Properties
-- ** Alignment
TreeViewColumnAlignmentPropertyInfo ,
constructTreeViewColumnAlignment ,
getTreeViewColumnAlignment ,
setTreeViewColumnAlignment ,
-- ** CellArea
TreeViewColumnCellAreaPropertyInfo ,
constructTreeViewColumnCellArea ,
getTreeViewColumnCellArea ,
-- ** Clickable
TreeViewColumnClickablePropertyInfo ,
constructTreeViewColumnClickable ,
getTreeViewColumnClickable ,
setTreeViewColumnClickable ,
-- ** Expand
TreeViewColumnExpandPropertyInfo ,
constructTreeViewColumnExpand ,
getTreeViewColumnExpand ,
setTreeViewColumnExpand ,
-- ** FixedWidth
TreeViewColumnFixedWidthPropertyInfo ,
constructTreeViewColumnFixedWidth ,
getTreeViewColumnFixedWidth ,
setTreeViewColumnFixedWidth ,
-- ** MaxWidth
TreeViewColumnMaxWidthPropertyInfo ,
constructTreeViewColumnMaxWidth ,
getTreeViewColumnMaxWidth ,
setTreeViewColumnMaxWidth ,
-- ** MinWidth
TreeViewColumnMinWidthPropertyInfo ,
constructTreeViewColumnMinWidth ,
getTreeViewColumnMinWidth ,
setTreeViewColumnMinWidth ,
-- ** Reorderable
TreeViewColumnReorderablePropertyInfo ,
constructTreeViewColumnReorderable ,
getTreeViewColumnReorderable ,
setTreeViewColumnReorderable ,
-- ** Resizable
TreeViewColumnResizablePropertyInfo ,
constructTreeViewColumnResizable ,
getTreeViewColumnResizable ,
setTreeViewColumnResizable ,
-- ** Sizing
TreeViewColumnSizingPropertyInfo ,
constructTreeViewColumnSizing ,
getTreeViewColumnSizing ,
setTreeViewColumnSizing ,
-- ** SortColumnId
TreeViewColumnSortColumnIdPropertyInfo ,
constructTreeViewColumnSortColumnId ,
getTreeViewColumnSortColumnId ,
setTreeViewColumnSortColumnId ,
-- ** SortIndicator
TreeViewColumnSortIndicatorPropertyInfo ,
constructTreeViewColumnSortIndicator ,
getTreeViewColumnSortIndicator ,
setTreeViewColumnSortIndicator ,
-- ** SortOrder
TreeViewColumnSortOrderPropertyInfo ,
constructTreeViewColumnSortOrder ,
getTreeViewColumnSortOrder ,
setTreeViewColumnSortOrder ,
-- ** Spacing
TreeViewColumnSpacingPropertyInfo ,
constructTreeViewColumnSpacing ,
getTreeViewColumnSpacing ,
setTreeViewColumnSpacing ,
-- ** Title
TreeViewColumnTitlePropertyInfo ,
constructTreeViewColumnTitle ,
getTreeViewColumnTitle ,
setTreeViewColumnTitle ,
-- ** Visible
TreeViewColumnVisiblePropertyInfo ,
constructTreeViewColumnVisible ,
getTreeViewColumnVisible ,
setTreeViewColumnVisible ,
-- ** Widget
TreeViewColumnWidgetPropertyInfo ,
constructTreeViewColumnWidget ,
getTreeViewColumnWidget ,
setTreeViewColumnWidget ,
-- ** Width
TreeViewColumnWidthPropertyInfo ,
getTreeViewColumnWidth ,
-- ** XOffset
TreeViewColumnXOffsetPropertyInfo ,
getTreeViewColumnXOffset ,
-- * Signals
-- ** Clicked
TreeViewColumnClickedCallback ,
TreeViewColumnClickedCallbackC ,
TreeViewColumnClickedSignalInfo ,
afterTreeViewColumnClicked ,
mkTreeViewColumnClickedCallback ,
noTreeViewColumnClickedCallback ,
onTreeViewColumnClicked ,
treeViewColumnClickedCallbackWrapper ,
treeViewColumnClickedClosure ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gtk.Types
import GI.Gtk.Callbacks
import qualified GI.GLib as GLib
import qualified GI.GObject as GObject
import qualified GI.Cairo as Cairo
newtype TreeViewColumn = TreeViewColumn (ForeignPtr TreeViewColumn)
foreign import ccall "gtk_tree_view_column_get_type"
c_gtk_tree_view_column_get_type :: IO GType
type instance ParentTypes TreeViewColumn = TreeViewColumnParentTypes
type TreeViewColumnParentTypes = '[GObject.Object, Buildable, CellLayout]
instance GObject TreeViewColumn where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_tree_view_column_get_type
class GObject o => TreeViewColumnK o
instance (GObject o, IsDescendantOf TreeViewColumn o) => TreeViewColumnK o
toTreeViewColumn :: TreeViewColumnK o => o -> IO TreeViewColumn
toTreeViewColumn = unsafeCastTo TreeViewColumn
noTreeViewColumn :: Maybe TreeViewColumn
noTreeViewColumn = Nothing
-- signal TreeViewColumn::clicked
type TreeViewColumnClickedCallback =
IO ()
noTreeViewColumnClickedCallback :: Maybe TreeViewColumnClickedCallback
noTreeViewColumnClickedCallback = Nothing
type TreeViewColumnClickedCallbackC =
Ptr () -> -- object
Ptr () -> -- user_data
IO ()
foreign import ccall "wrapper"
mkTreeViewColumnClickedCallback :: TreeViewColumnClickedCallbackC -> IO (FunPtr TreeViewColumnClickedCallbackC)
treeViewColumnClickedClosure :: TreeViewColumnClickedCallback -> IO Closure
treeViewColumnClickedClosure cb = newCClosure =<< mkTreeViewColumnClickedCallback wrapped
where wrapped = treeViewColumnClickedCallbackWrapper cb
treeViewColumnClickedCallbackWrapper ::
TreeViewColumnClickedCallback ->
Ptr () ->
Ptr () ->
IO ()
treeViewColumnClickedCallbackWrapper _cb _ _ = do
_cb
onTreeViewColumnClicked :: (GObject a, MonadIO m) => a -> TreeViewColumnClickedCallback -> m SignalHandlerId
onTreeViewColumnClicked obj cb = liftIO $ connectTreeViewColumnClicked obj cb SignalConnectBefore
afterTreeViewColumnClicked :: (GObject a, MonadIO m) => a -> TreeViewColumnClickedCallback -> m SignalHandlerId
afterTreeViewColumnClicked obj cb = connectTreeViewColumnClicked obj cb SignalConnectAfter
connectTreeViewColumnClicked :: (GObject a, MonadIO m) =>
a -> TreeViewColumnClickedCallback -> SignalConnectMode -> m SignalHandlerId
connectTreeViewColumnClicked obj cb after = liftIO $ do
cb' <- mkTreeViewColumnClickedCallback (treeViewColumnClickedCallbackWrapper cb)
connectSignalFunPtr obj "clicked" cb' after
-- VVV Prop "alignment"
-- Type: TBasicType TFloat
-- Flags: [PropertyReadable,PropertyWritable]
getTreeViewColumnAlignment :: (MonadIO m, TreeViewColumnK o) => o -> m Float
getTreeViewColumnAlignment obj = liftIO $ getObjectPropertyFloat obj "alignment"
setTreeViewColumnAlignment :: (MonadIO m, TreeViewColumnK o) => o -> Float -> m ()
setTreeViewColumnAlignment obj val = liftIO $ setObjectPropertyFloat obj "alignment" val
constructTreeViewColumnAlignment :: Float -> IO ([Char], GValue)
constructTreeViewColumnAlignment val = constructObjectPropertyFloat "alignment" val
data TreeViewColumnAlignmentPropertyInfo
instance AttrInfo TreeViewColumnAlignmentPropertyInfo where
type AttrAllowedOps TreeViewColumnAlignmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnAlignmentPropertyInfo = (~) Float
type AttrBaseTypeConstraint TreeViewColumnAlignmentPropertyInfo = TreeViewColumnK
type AttrGetType TreeViewColumnAlignmentPropertyInfo = Float
type AttrLabel TreeViewColumnAlignmentPropertyInfo = "TreeViewColumn::alignment"
attrGet _ = getTreeViewColumnAlignment
attrSet _ = setTreeViewColumnAlignment
attrConstruct _ = constructTreeViewColumnAlignment
-- VVV Prop "cell-area"
-- Type: TInterface "Gtk" "CellArea"
-- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]
getTreeViewColumnCellArea :: (MonadIO m, TreeViewColumnK o) => o -> m CellArea
getTreeViewColumnCellArea obj = liftIO $ getObjectPropertyObject obj "cell-area" CellArea
constructTreeViewColumnCellArea :: (CellAreaK a) => a -> IO ([Char], GValue)
constructTreeViewColumnCellArea val = constructObjectPropertyObject "cell-area" val
data TreeViewColumnCellAreaPropertyInfo
instance AttrInfo TreeViewColumnCellAreaPropertyInfo where
type AttrAllowedOps TreeViewColumnCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnCellAreaPropertyInfo = CellAreaK
type AttrBaseTypeConstraint TreeViewColumnCellAreaPropertyInfo = TreeViewColumnK
type AttrGetType TreeViewColumnCellAreaPropertyInfo = CellArea
type AttrLabel TreeViewColumnCellAreaPropertyInfo = "TreeViewColumn::cell-area"
attrGet _ = getTreeViewColumnCellArea
attrSet _ = undefined
attrConstruct _ = constructTreeViewColumnCellArea
-- VVV Prop "clickable"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getTreeViewColumnClickable :: (MonadIO m, TreeViewColumnK o) => o -> m Bool
getTreeViewColumnClickable obj = liftIO $ getObjectPropertyBool obj "clickable"
setTreeViewColumnClickable :: (MonadIO m, TreeViewColumnK o) => o -> Bool -> m ()
setTreeViewColumnClickable obj val = liftIO $ setObjectPropertyBool obj "clickable" val
constructTreeViewColumnClickable :: Bool -> IO ([Char], GValue)
constructTreeViewColumnClickable val = constructObjectPropertyBool "clickable" val
data TreeViewColumnClickablePropertyInfo
instance AttrInfo TreeViewColumnClickablePropertyInfo where
type AttrAllowedOps TreeViewColumnClickablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnClickablePropertyInfo = (~) Bool
type AttrBaseTypeConstraint TreeViewColumnClickablePropertyInfo = TreeViewColumnK
type AttrGetType TreeViewColumnClickablePropertyInfo = Bool
type AttrLabel TreeViewColumnClickablePropertyInfo = "TreeViewColumn::clickable"
attrGet _ = getTreeViewColumnClickable
attrSet _ = setTreeViewColumnClickable
attrConstruct _ = constructTreeViewColumnClickable
-- VVV Prop "expand"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getTreeViewColumnExpand :: (MonadIO m, TreeViewColumnK o) => o -> m Bool
getTreeViewColumnExpand obj = liftIO $ getObjectPropertyBool obj "expand"
setTreeViewColumnExpand :: (MonadIO m, TreeViewColumnK o) => o -> Bool -> m ()
setTreeViewColumnExpand obj val = liftIO $ setObjectPropertyBool obj "expand" val
constructTreeViewColumnExpand :: Bool -> IO ([Char], GValue)
constructTreeViewColumnExpand val = constructObjectPropertyBool "expand" val
data TreeViewColumnExpandPropertyInfo
instance AttrInfo TreeViewColumnExpandPropertyInfo where
type AttrAllowedOps TreeViewColumnExpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnExpandPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TreeViewColumnExpandPropertyInfo = TreeViewColumnK
type AttrGetType TreeViewColumnExpandPropertyInfo = Bool
type AttrLabel TreeViewColumnExpandPropertyInfo = "TreeViewColumn::expand"
attrGet _ = getTreeViewColumnExpand
attrSet _ = setTreeViewColumnExpand
attrConstruct _ = constructTreeViewColumnExpand
-- VVV Prop "fixed-width"
-- Type: TBasicType TInt32
-- Flags: [PropertyReadable,PropertyWritable]
getTreeViewColumnFixedWidth :: (MonadIO m, TreeViewColumnK o) => o -> m Int32
getTreeViewColumnFixedWidth obj = liftIO $ getObjectPropertyCInt obj "fixed-width"
setTreeViewColumnFixedWidth :: (MonadIO m, TreeViewColumnK o) => o -> Int32 -> m ()
setTreeViewColumnFixedWidth obj val = liftIO $ setObjectPropertyCInt obj "fixed-width" val
constructTreeViewColumnFixedWidth :: Int32 -> IO ([Char], GValue)
constructTreeViewColumnFixedWidth val = constructObjectPropertyCInt "fixed-width" val
data TreeViewColumnFixedWidthPropertyInfo
instance AttrInfo TreeViewColumnFixedWidthPropertyInfo where
type AttrAllowedOps TreeViewColumnFixedWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnFixedWidthPropertyInfo = (~) Int32
type AttrBaseTypeConstraint TreeViewColumnFixedWidthPropertyInfo = TreeViewColumnK
type AttrGetType TreeViewColumnFixedWidthPropertyInfo = Int32
type AttrLabel TreeViewColumnFixedWidthPropertyInfo = "TreeViewColumn::fixed-width"
attrGet _ = getTreeViewColumnFixedWidth
attrSet _ = setTreeViewColumnFixedWidth
attrConstruct _ = constructTreeViewColumnFixedWidth
-- VVV Prop "max-width"
-- Type: TBasicType TInt32
-- Flags: [PropertyReadable,PropertyWritable]
getTreeViewColumnMaxWidth :: (MonadIO m, TreeViewColumnK o) => o -> m Int32
getTreeViewColumnMaxWidth obj = liftIO $ getObjectPropertyCInt obj "max-width"
setTreeViewColumnMaxWidth :: (MonadIO m, TreeViewColumnK o) => o -> Int32 -> m ()
setTreeViewColumnMaxWidth obj val = liftIO $ setObjectPropertyCInt obj "max-width" val
constructTreeViewColumnMaxWidth :: Int32 -> IO ([Char], GValue)
constructTreeViewColumnMaxWidth val = constructObjectPropertyCInt "max-width" val
data TreeViewColumnMaxWidthPropertyInfo
instance AttrInfo TreeViewColumnMaxWidthPropertyInfo where
type AttrAllowedOps TreeViewColumnMaxWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnMaxWidthPropertyInfo = (~) Int32
type AttrBaseTypeConstraint TreeViewColumnMaxWidthPropertyInfo = TreeViewColumnK
type AttrGetType TreeViewColumnMaxWidthPropertyInfo = Int32
type AttrLabel TreeViewColumnMaxWidthPropertyInfo = "TreeViewColumn::max-width"
attrGet _ = getTreeViewColumnMaxWidth
attrSet _ = setTreeViewColumnMaxWidth
attrConstruct _ = constructTreeViewColumnMaxWidth
-- VVV Prop "min-width"
-- Type: TBasicType TInt32
-- Flags: [PropertyReadable,PropertyWritable]
getTreeViewColumnMinWidth :: (MonadIO m, TreeViewColumnK o) => o -> m Int32
getTreeViewColumnMinWidth obj = liftIO $ getObjectPropertyCInt obj "min-width"
setTreeViewColumnMinWidth :: (MonadIO m, TreeViewColumnK o) => o -> Int32 -> m ()
setTreeViewColumnMinWidth obj val = liftIO $ setObjectPropertyCInt obj "min-width" val
constructTreeViewColumnMinWidth :: Int32 -> IO ([Char], GValue)
constructTreeViewColumnMinWidth val = constructObjectPropertyCInt "min-width" val
data TreeViewColumnMinWidthPropertyInfo
instance AttrInfo TreeViewColumnMinWidthPropertyInfo where
type AttrAllowedOps TreeViewColumnMinWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnMinWidthPropertyInfo = (~) Int32
type AttrBaseTypeConstraint TreeViewColumnMinWidthPropertyInfo = TreeViewColumnK
type AttrGetType TreeViewColumnMinWidthPropertyInfo = Int32
type AttrLabel TreeViewColumnMinWidthPropertyInfo = "TreeViewColumn::min-width"
attrGet _ = getTreeViewColumnMinWidth
attrSet _ = setTreeViewColumnMinWidth
attrConstruct _ = constructTreeViewColumnMinWidth
-- VVV Prop "reorderable"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getTreeViewColumnReorderable :: (MonadIO m, TreeViewColumnK o) => o -> m Bool
getTreeViewColumnReorderable obj = liftIO $ getObjectPropertyBool obj "reorderable"
setTreeViewColumnReorderable :: (MonadIO m, TreeViewColumnK o) => o -> Bool -> m ()
setTreeViewColumnReorderable obj val = liftIO $ setObjectPropertyBool obj "reorderable" val
constructTreeViewColumnReorderable :: Bool -> IO ([Char], GValue)
constructTreeViewColumnReorderable val = constructObjectPropertyBool "reorderable" val
data TreeViewColumnReorderablePropertyInfo
instance AttrInfo TreeViewColumnReorderablePropertyInfo where
type AttrAllowedOps TreeViewColumnReorderablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnReorderablePropertyInfo = (~) Bool
type AttrBaseTypeConstraint TreeViewColumnReorderablePropertyInfo = TreeViewColumnK
type AttrGetType TreeViewColumnReorderablePropertyInfo = Bool
type AttrLabel TreeViewColumnReorderablePropertyInfo = "TreeViewColumn::reorderable"
attrGet _ = getTreeViewColumnReorderable
attrSet _ = setTreeViewColumnReorderable
attrConstruct _ = constructTreeViewColumnReorderable
-- VVV Prop "resizable"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getTreeViewColumnResizable :: (MonadIO m, TreeViewColumnK o) => o -> m Bool
getTreeViewColumnResizable obj = liftIO $ getObjectPropertyBool obj "resizable"
setTreeViewColumnResizable :: (MonadIO m, TreeViewColumnK o) => o -> Bool -> m ()
setTreeViewColumnResizable obj val = liftIO $ setObjectPropertyBool obj "resizable" val
constructTreeViewColumnResizable :: Bool -> IO ([Char], GValue)
constructTreeViewColumnResizable val = constructObjectPropertyBool "resizable" val
data TreeViewColumnResizablePropertyInfo
instance AttrInfo TreeViewColumnResizablePropertyInfo where
type AttrAllowedOps TreeViewColumnResizablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnResizablePropertyInfo = (~) Bool
type AttrBaseTypeConstraint TreeViewColumnResizablePropertyInfo = TreeViewColumnK
type AttrGetType TreeViewColumnResizablePropertyInfo = Bool
type AttrLabel TreeViewColumnResizablePropertyInfo = "TreeViewColumn::resizable"
attrGet _ = getTreeViewColumnResizable
attrSet _ = setTreeViewColumnResizable
attrConstruct _ = constructTreeViewColumnResizable
-- VVV Prop "sizing"
-- Type: TInterface "Gtk" "TreeViewColumnSizing"
-- Flags: [PropertyReadable,PropertyWritable]
getTreeViewColumnSizing :: (MonadIO m, TreeViewColumnK o) => o -> m TreeViewColumnSizing
getTreeViewColumnSizing obj = liftIO $ getObjectPropertyEnum obj "sizing"
setTreeViewColumnSizing :: (MonadIO m, TreeViewColumnK o) => o -> TreeViewColumnSizing -> m ()
setTreeViewColumnSizing obj val = liftIO $ setObjectPropertyEnum obj "sizing" val
constructTreeViewColumnSizing :: TreeViewColumnSizing -> IO ([Char], GValue)
constructTreeViewColumnSizing val = constructObjectPropertyEnum "sizing" val
data TreeViewColumnSizingPropertyInfo
instance AttrInfo TreeViewColumnSizingPropertyInfo where
type AttrAllowedOps TreeViewColumnSizingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnSizingPropertyInfo = (~) TreeViewColumnSizing
type AttrBaseTypeConstraint TreeViewColumnSizingPropertyInfo = TreeViewColumnK
type AttrGetType TreeViewColumnSizingPropertyInfo = TreeViewColumnSizing
type AttrLabel TreeViewColumnSizingPropertyInfo = "TreeViewColumn::sizing"
attrGet _ = getTreeViewColumnSizing
attrSet _ = setTreeViewColumnSizing
attrConstruct _ = constructTreeViewColumnSizing
-- VVV Prop "sort-column-id"
-- Type: TBasicType TInt32
-- Flags: [PropertyReadable,PropertyWritable]
getTreeViewColumnSortColumnId :: (MonadIO m, TreeViewColumnK o) => o -> m Int32
getTreeViewColumnSortColumnId obj = liftIO $ getObjectPropertyCInt obj "sort-column-id"
setTreeViewColumnSortColumnId :: (MonadIO m, TreeViewColumnK o) => o -> Int32 -> m ()
setTreeViewColumnSortColumnId obj val = liftIO $ setObjectPropertyCInt obj "sort-column-id" val
constructTreeViewColumnSortColumnId :: Int32 -> IO ([Char], GValue)
constructTreeViewColumnSortColumnId val = constructObjectPropertyCInt "sort-column-id" val
data TreeViewColumnSortColumnIdPropertyInfo
instance AttrInfo TreeViewColumnSortColumnIdPropertyInfo where
type AttrAllowedOps TreeViewColumnSortColumnIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnSortColumnIdPropertyInfo = (~) Int32
type AttrBaseTypeConstraint TreeViewColumnSortColumnIdPropertyInfo = TreeViewColumnK
type AttrGetType TreeViewColumnSortColumnIdPropertyInfo = Int32
type AttrLabel TreeViewColumnSortColumnIdPropertyInfo = "TreeViewColumn::sort-column-id"
attrGet _ = getTreeViewColumnSortColumnId
attrSet _ = setTreeViewColumnSortColumnId
attrConstruct _ = constructTreeViewColumnSortColumnId
-- VVV Prop "sort-indicator"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getTreeViewColumnSortIndicator :: (MonadIO m, TreeViewColumnK o) => o -> m Bool
getTreeViewColumnSortIndicator obj = liftIO $ getObjectPropertyBool obj "sort-indicator"
setTreeViewColumnSortIndicator :: (MonadIO m, TreeViewColumnK o) => o -> Bool -> m ()
setTreeViewColumnSortIndicator obj val = liftIO $ setObjectPropertyBool obj "sort-indicator" val
constructTreeViewColumnSortIndicator :: Bool -> IO ([Char], GValue)
constructTreeViewColumnSortIndicator val = constructObjectPropertyBool "sort-indicator" val
data TreeViewColumnSortIndicatorPropertyInfo
instance AttrInfo TreeViewColumnSortIndicatorPropertyInfo where
type AttrAllowedOps TreeViewColumnSortIndicatorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnSortIndicatorPropertyInfo = (~) Bool
type AttrBaseTypeConstraint TreeViewColumnSortIndicatorPropertyInfo = TreeViewColumnK
type AttrGetType TreeViewColumnSortIndicatorPropertyInfo = Bool
type AttrLabel TreeViewColumnSortIndicatorPropertyInfo = "TreeViewColumn::sort-indicator"
attrGet _ = getTreeViewColumnSortIndicator
attrSet _ = setTreeViewColumnSortIndicator
attrConstruct _ = constructTreeViewColumnSortIndicator
-- VVV Prop "sort-order"
-- Type: TInterface "Gtk" "SortType"
-- Flags: [PropertyReadable,PropertyWritable]
getTreeViewColumnSortOrder :: (MonadIO m, TreeViewColumnK o) => o -> m SortType
getTreeViewColumnSortOrder obj = liftIO $ getObjectPropertyEnum obj "sort-order"
setTreeViewColumnSortOrder :: (MonadIO m, TreeViewColumnK o) => o -> SortType -> m ()
setTreeViewColumnSortOrder obj val = liftIO $ setObjectPropertyEnum obj "sort-order" val
constructTreeViewColumnSortOrder :: SortType -> IO ([Char], GValue)
constructTreeViewColumnSortOrder val = constructObjectPropertyEnum "sort-order" val
data TreeViewColumnSortOrderPropertyInfo
instance AttrInfo TreeViewColumnSortOrderPropertyInfo where
type AttrAllowedOps TreeViewColumnSortOrderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnSortOrderPropertyInfo = (~) SortType
type AttrBaseTypeConstraint TreeViewColumnSortOrderPropertyInfo = TreeViewColumnK
type AttrGetType TreeViewColumnSortOrderPropertyInfo = SortType
type AttrLabel TreeViewColumnSortOrderPropertyInfo = "TreeViewColumn::sort-order"
attrGet _ = getTreeViewColumnSortOrder
attrSet _ = setTreeViewColumnSortOrder
attrConstruct _ = constructTreeViewColumnSortOrder
-- VVV Prop "spacing"
-- Type: TBasicType TInt32
-- Flags: [PropertyReadable,PropertyWritable]
getTreeViewColumnSpacing :: (MonadIO m, TreeViewColumnK o) => o -> m Int32
getTreeViewColumnSpacing obj = liftIO $ getObjectPropertyCInt obj "spacing"
setTreeViewColumnSpacing :: (MonadIO m, TreeViewColumnK o) => o -> Int32 -> m ()
setTreeViewColumnSpacing obj val = liftIO $ setObjectPropertyCInt obj "spacing" val
constructTreeViewColumnSpacing :: Int32 -> IO ([Char], GValue)
constructTreeViewColumnSpacing val = constructObjectPropertyCInt "spacing" val
data TreeViewColumnSpacingPropertyInfo
instance AttrInfo TreeViewColumnSpacingPropertyInfo where
type AttrAllowedOps TreeViewColumnSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnSpacingPropertyInfo = (~) Int32
type AttrBaseTypeConstraint TreeViewColumnSpacingPropertyInfo = TreeViewColumnK
type AttrGetType TreeViewColumnSpacingPropertyInfo = Int32
type AttrLabel TreeViewColumnSpacingPropertyInfo = "TreeViewColumn::spacing"
attrGet _ = getTreeViewColumnSpacing
attrSet _ = setTreeViewColumnSpacing
attrConstruct _ = constructTreeViewColumnSpacing
-- VVV Prop "title"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable,PropertyWritable]
getTreeViewColumnTitle :: (MonadIO m, TreeViewColumnK o) => o -> m T.Text
getTreeViewColumnTitle obj = liftIO $ getObjectPropertyString obj "title"
setTreeViewColumnTitle :: (MonadIO m, TreeViewColumnK o) => o -> T.Text -> m ()
setTreeViewColumnTitle obj val = liftIO $ setObjectPropertyString obj "title" val
constructTreeViewColumnTitle :: T.Text -> IO ([Char], GValue)
constructTreeViewColumnTitle val = constructObjectPropertyString "title" val
data TreeViewColumnTitlePropertyInfo
instance AttrInfo TreeViewColumnTitlePropertyInfo where
type AttrAllowedOps TreeViewColumnTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnTitlePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint TreeViewColumnTitlePropertyInfo = TreeViewColumnK
type AttrGetType TreeViewColumnTitlePropertyInfo = T.Text
type AttrLabel TreeViewColumnTitlePropertyInfo = "TreeViewColumn::title"
attrGet _ = getTreeViewColumnTitle
attrSet _ = setTreeViewColumnTitle
attrConstruct _ = constructTreeViewColumnTitle
-- VVV Prop "visible"
-- Type: TBasicType TBoolean
-- Flags: [PropertyReadable,PropertyWritable]
getTreeViewColumnVisible :: (MonadIO m, TreeViewColumnK o) => o -> m Bool
getTreeViewColumnVisible obj = liftIO $ getObjectPropertyBool obj "visible"
setTreeViewColumnVisible :: (MonadIO m, TreeViewColumnK o) => o -> Bool -> m ()
setTreeViewColumnVisible obj val = liftIO $ setObjectPropertyBool obj "visible" val
constructTreeViewColumnVisible :: Bool -> IO ([Char], GValue)
constructTreeViewColumnVisible val = constructObjectPropertyBool "visible" val
data TreeViewColumnVisiblePropertyInfo
instance AttrInfo TreeViewColumnVisiblePropertyInfo where
type AttrAllowedOps TreeViewColumnVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnVisiblePropertyInfo = (~) Bool
type AttrBaseTypeConstraint TreeViewColumnVisiblePropertyInfo = TreeViewColumnK
type AttrGetType TreeViewColumnVisiblePropertyInfo = Bool
type AttrLabel TreeViewColumnVisiblePropertyInfo = "TreeViewColumn::visible"
attrGet _ = getTreeViewColumnVisible
attrSet _ = setTreeViewColumnVisible
attrConstruct _ = constructTreeViewColumnVisible
-- VVV Prop "widget"
-- Type: TInterface "Gtk" "Widget"
-- Flags: [PropertyReadable,PropertyWritable]
getTreeViewColumnWidget :: (MonadIO m, TreeViewColumnK o) => o -> m Widget
getTreeViewColumnWidget obj = liftIO $ getObjectPropertyObject obj "widget" Widget
setTreeViewColumnWidget :: (MonadIO m, TreeViewColumnK o, WidgetK a) => o -> a -> m ()
setTreeViewColumnWidget obj val = liftIO $ setObjectPropertyObject obj "widget" val
constructTreeViewColumnWidget :: (WidgetK a) => a -> IO ([Char], GValue)
constructTreeViewColumnWidget val = constructObjectPropertyObject "widget" val
data TreeViewColumnWidgetPropertyInfo
instance AttrInfo TreeViewColumnWidgetPropertyInfo where
type AttrAllowedOps TreeViewColumnWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnWidgetPropertyInfo = WidgetK
type AttrBaseTypeConstraint TreeViewColumnWidgetPropertyInfo = TreeViewColumnK
type AttrGetType TreeViewColumnWidgetPropertyInfo = Widget
type AttrLabel TreeViewColumnWidgetPropertyInfo = "TreeViewColumn::widget"
attrGet _ = getTreeViewColumnWidget
attrSet _ = setTreeViewColumnWidget
attrConstruct _ = constructTreeViewColumnWidget
-- VVV Prop "width"
-- Type: TBasicType TInt32
-- Flags: [PropertyReadable]
getTreeViewColumnWidth :: (MonadIO m, TreeViewColumnK o) => o -> m Int32
getTreeViewColumnWidth obj = liftIO $ getObjectPropertyCInt obj "width"
data TreeViewColumnWidthPropertyInfo
instance AttrInfo TreeViewColumnWidthPropertyInfo where
type AttrAllowedOps TreeViewColumnWidthPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnWidthPropertyInfo = (~) ()
type AttrBaseTypeConstraint TreeViewColumnWidthPropertyInfo = TreeViewColumnK
type AttrGetType TreeViewColumnWidthPropertyInfo = Int32
type AttrLabel TreeViewColumnWidthPropertyInfo = "TreeViewColumn::width"
attrGet _ = getTreeViewColumnWidth
attrSet _ = undefined
attrConstruct _ = undefined
-- VVV Prop "x-offset"
-- Type: TBasicType TInt32
-- Flags: [PropertyReadable]
getTreeViewColumnXOffset :: (MonadIO m, TreeViewColumnK o) => o -> m Int32
getTreeViewColumnXOffset obj = liftIO $ getObjectPropertyCInt obj "x-offset"
data TreeViewColumnXOffsetPropertyInfo
instance AttrInfo TreeViewColumnXOffsetPropertyInfo where
type AttrAllowedOps TreeViewColumnXOffsetPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint TreeViewColumnXOffsetPropertyInfo = (~) ()
type AttrBaseTypeConstraint TreeViewColumnXOffsetPropertyInfo = TreeViewColumnK
type AttrGetType TreeViewColumnXOffsetPropertyInfo = Int32
type AttrLabel TreeViewColumnXOffsetPropertyInfo = "TreeViewColumn::x-offset"
attrGet _ = getTreeViewColumnXOffset
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList TreeViewColumn = TreeViewColumnAttributeList
type TreeViewColumnAttributeList = ('[ '("alignment", TreeViewColumnAlignmentPropertyInfo), '("cell-area", TreeViewColumnCellAreaPropertyInfo), '("clickable", TreeViewColumnClickablePropertyInfo), '("expand", TreeViewColumnExpandPropertyInfo), '("fixed-width", TreeViewColumnFixedWidthPropertyInfo), '("max-width", TreeViewColumnMaxWidthPropertyInfo), '("min-width", TreeViewColumnMinWidthPropertyInfo), '("reorderable", TreeViewColumnReorderablePropertyInfo), '("resizable", TreeViewColumnResizablePropertyInfo), '("sizing", TreeViewColumnSizingPropertyInfo), '("sort-column-id", TreeViewColumnSortColumnIdPropertyInfo), '("sort-indicator", TreeViewColumnSortIndicatorPropertyInfo), '("sort-order", TreeViewColumnSortOrderPropertyInfo), '("spacing", TreeViewColumnSpacingPropertyInfo), '("title", TreeViewColumnTitlePropertyInfo), '("visible", TreeViewColumnVisiblePropertyInfo), '("widget", TreeViewColumnWidgetPropertyInfo), '("width", TreeViewColumnWidthPropertyInfo), '("x-offset", TreeViewColumnXOffsetPropertyInfo)] :: [(Symbol, *)])
data TreeViewColumnClickedSignalInfo
instance SignalInfo TreeViewColumnClickedSignalInfo where
type HaskellCallbackType TreeViewColumnClickedSignalInfo = TreeViewColumnClickedCallback
connectSignal _ = connectTreeViewColumnClicked
type instance SignalList TreeViewColumn = TreeViewColumnSignalList
type TreeViewColumnSignalList = ('[ '("clicked", TreeViewColumnClickedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
-- method TreeViewColumn::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gtk" "TreeViewColumn"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_new" gtk_tree_view_column_new ::
IO (Ptr TreeViewColumn)
treeViewColumnNew ::
(MonadIO m) =>
m TreeViewColumn
treeViewColumnNew = liftIO $ do
result <- gtk_tree_view_column_new
checkUnexpectedReturnNULL "gtk_tree_view_column_new" result
result' <- (newObject TreeViewColumn) result
return result'
-- method TreeViewColumn::new_with_area
-- method type : Constructor
-- Args : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreeViewColumn"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_new_with_area" gtk_tree_view_column_new_with_area ::
Ptr CellArea -> -- area : TInterface "Gtk" "CellArea"
IO (Ptr TreeViewColumn)
treeViewColumnNewWithArea ::
(MonadIO m, CellAreaK a) =>
a -> -- area
m TreeViewColumn
treeViewColumnNewWithArea area = liftIO $ do
let area' = unsafeManagedPtrCastPtr area
result <- gtk_tree_view_column_new_with_area area'
checkUnexpectedReturnNULL "gtk_tree_view_column_new_with_area" result
result' <- (newObject TreeViewColumn) result
touchManagedPtr area
return result'
-- method TreeViewColumn::add_attribute
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "column", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_add_attribute" gtk_tree_view_column_add_attribute ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
Ptr CellRenderer -> -- cell_renderer : TInterface "Gtk" "CellRenderer"
CString -> -- attribute : TBasicType TUTF8
Int32 -> -- column : TBasicType TInt32
IO ()
treeViewColumnAddAttribute ::
(MonadIO m, TreeViewColumnK a, CellRendererK b) =>
a -> -- _obj
b -> -- cell_renderer
T.Text -> -- attribute
Int32 -> -- column
m ()
treeViewColumnAddAttribute _obj cell_renderer attribute column = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell_renderer' = unsafeManagedPtrCastPtr cell_renderer
attribute' <- textToCString attribute
gtk_tree_view_column_add_attribute _obj' cell_renderer' attribute' column
touchManagedPtr _obj
touchManagedPtr cell_renderer
freeMem attribute'
return ()
-- method TreeViewColumn::cell_get_position
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_cell_get_position" gtk_tree_view_column_cell_get_position ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
Ptr CellRenderer -> -- cell_renderer : TInterface "Gtk" "CellRenderer"
Ptr Int32 -> -- x_offset : TBasicType TInt32
Ptr Int32 -> -- width : TBasicType TInt32
IO CInt
treeViewColumnCellGetPosition ::
(MonadIO m, TreeViewColumnK a, CellRendererK b) =>
a -> -- _obj
b -> -- cell_renderer
m (Bool,Int32,Int32)
treeViewColumnCellGetPosition _obj cell_renderer = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell_renderer' = unsafeManagedPtrCastPtr cell_renderer
x_offset <- allocMem :: IO (Ptr Int32)
width <- allocMem :: IO (Ptr Int32)
result <- gtk_tree_view_column_cell_get_position _obj' cell_renderer' x_offset width
let result' = (/= 0) result
x_offset' <- peek x_offset
width' <- peek width
touchManagedPtr _obj
touchManagedPtr cell_renderer
freeMem x_offset
freeMem width
return (result', x_offset', width')
-- method TreeViewColumn::cell_get_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y_offset", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_area", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_cell_get_size" gtk_tree_view_column_cell_get_size ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
Ptr Cairo.RectangleInt -> -- cell_area : TInterface "cairo" "RectangleInt"
Ptr Int32 -> -- x_offset : TBasicType TInt32
Ptr Int32 -> -- y_offset : TBasicType TInt32
Ptr Int32 -> -- width : TBasicType TInt32
Ptr Int32 -> -- height : TBasicType TInt32
IO ()
treeViewColumnCellGetSize ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
Maybe (Cairo.RectangleInt) -> -- cell_area
m (Int32,Int32,Int32,Int32)
treeViewColumnCellGetSize _obj cell_area = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeCell_area <- case cell_area of
Nothing -> return nullPtr
Just jCell_area -> do
let jCell_area' = unsafeManagedPtrGetPtr jCell_area
return jCell_area'
x_offset <- allocMem :: IO (Ptr Int32)
y_offset <- allocMem :: IO (Ptr Int32)
width <- allocMem :: IO (Ptr Int32)
height <- allocMem :: IO (Ptr Int32)
gtk_tree_view_column_cell_get_size _obj' maybeCell_area x_offset y_offset width height
x_offset' <- peek x_offset
y_offset' <- peek y_offset
width' <- peek width
height' <- peek height
touchManagedPtr _obj
whenJust cell_area touchManagedPtr
freeMem x_offset
freeMem y_offset
freeMem width
freeMem height
return (x_offset', y_offset', width', height')
-- method TreeViewColumn::cell_is_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_cell_is_visible" gtk_tree_view_column_cell_is_visible ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO CInt
treeViewColumnCellIsVisible ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Bool
treeViewColumnCellIsVisible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_cell_is_visible _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TreeViewColumn::cell_set_cell_data
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_expander", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_expanded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_expander", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_expanded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_cell_set_cell_data" gtk_tree_view_column_cell_set_cell_data ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
Ptr TreeModel -> -- tree_model : TInterface "Gtk" "TreeModel"
Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter"
CInt -> -- is_expander : TBasicType TBoolean
CInt -> -- is_expanded : TBasicType TBoolean
IO ()
treeViewColumnCellSetCellData ::
(MonadIO m, TreeViewColumnK a, TreeModelK b) =>
a -> -- _obj
b -> -- tree_model
TreeIter -> -- iter
Bool -> -- is_expander
Bool -> -- is_expanded
m ()
treeViewColumnCellSetCellData _obj tree_model iter is_expander is_expanded = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let tree_model' = unsafeManagedPtrCastPtr tree_model
let iter' = unsafeManagedPtrGetPtr iter
let is_expander' = (fromIntegral . fromEnum) is_expander
let is_expanded' = (fromIntegral . fromEnum) is_expanded
gtk_tree_view_column_cell_set_cell_data _obj' tree_model' iter' is_expander' is_expanded'
touchManagedPtr _obj
touchManagedPtr tree_model
touchManagedPtr iter
return ()
-- method TreeViewColumn::clear
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_clear" gtk_tree_view_column_clear ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO ()
treeViewColumnClear ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m ()
treeViewColumnClear _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_view_column_clear _obj'
touchManagedPtr _obj
return ()
-- method TreeViewColumn::clear_attributes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_clear_attributes" gtk_tree_view_column_clear_attributes ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
Ptr CellRenderer -> -- cell_renderer : TInterface "Gtk" "CellRenderer"
IO ()
treeViewColumnClearAttributes ::
(MonadIO m, TreeViewColumnK a, CellRendererK b) =>
a -> -- _obj
b -> -- cell_renderer
m ()
treeViewColumnClearAttributes _obj cell_renderer = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell_renderer' = unsafeManagedPtrCastPtr cell_renderer
gtk_tree_view_column_clear_attributes _obj' cell_renderer'
touchManagedPtr _obj
touchManagedPtr cell_renderer
return ()
-- method TreeViewColumn::clicked
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_clicked" gtk_tree_view_column_clicked ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO ()
treeViewColumnClicked ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m ()
treeViewColumnClicked _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_view_column_clicked _obj'
touchManagedPtr _obj
return ()
-- method TreeViewColumn::focus_cell
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_focus_cell" gtk_tree_view_column_focus_cell ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer"
IO ()
treeViewColumnFocusCell ::
(MonadIO m, TreeViewColumnK a, CellRendererK b) =>
a -> -- _obj
b -> -- cell
m ()
treeViewColumnFocusCell _obj cell = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell' = unsafeManagedPtrCastPtr cell
gtk_tree_view_column_focus_cell _obj' cell'
touchManagedPtr _obj
touchManagedPtr cell
return ()
-- method TreeViewColumn::get_alignment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TFloat
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_alignment" gtk_tree_view_column_get_alignment ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO CFloat
treeViewColumnGetAlignment ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Float
treeViewColumnGetAlignment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_alignment _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method TreeViewColumn::get_button
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_button" gtk_tree_view_column_get_button ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO (Ptr Widget)
treeViewColumnGetButton ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Widget
treeViewColumnGetButton _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_button _obj'
checkUnexpectedReturnNULL "gtk_tree_view_column_get_button" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method TreeViewColumn::get_clickable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_clickable" gtk_tree_view_column_get_clickable ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO CInt
treeViewColumnGetClickable ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Bool
treeViewColumnGetClickable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_clickable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TreeViewColumn::get_expand
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_expand" gtk_tree_view_column_get_expand ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO CInt
treeViewColumnGetExpand ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Bool
treeViewColumnGetExpand _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_expand _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TreeViewColumn::get_fixed_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_fixed_width" gtk_tree_view_column_get_fixed_width ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO Int32
treeViewColumnGetFixedWidth ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Int32
treeViewColumnGetFixedWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_fixed_width _obj'
touchManagedPtr _obj
return result
-- method TreeViewColumn::get_max_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_max_width" gtk_tree_view_column_get_max_width ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO Int32
treeViewColumnGetMaxWidth ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Int32
treeViewColumnGetMaxWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_max_width _obj'
touchManagedPtr _obj
return result
-- method TreeViewColumn::get_min_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_min_width" gtk_tree_view_column_get_min_width ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO Int32
treeViewColumnGetMinWidth ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Int32
treeViewColumnGetMinWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_min_width _obj'
touchManagedPtr _obj
return result
-- method TreeViewColumn::get_reorderable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_reorderable" gtk_tree_view_column_get_reorderable ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO CInt
treeViewColumnGetReorderable ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Bool
treeViewColumnGetReorderable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_reorderable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TreeViewColumn::get_resizable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_resizable" gtk_tree_view_column_get_resizable ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO CInt
treeViewColumnGetResizable ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Bool
treeViewColumnGetResizable _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_resizable _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TreeViewColumn::get_sizing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "TreeViewColumnSizing"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_sizing" gtk_tree_view_column_get_sizing ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO CUInt
treeViewColumnGetSizing ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m TreeViewColumnSizing
treeViewColumnGetSizing _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_sizing _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method TreeViewColumn::get_sort_column_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_sort_column_id" gtk_tree_view_column_get_sort_column_id ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO Int32
treeViewColumnGetSortColumnId ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Int32
treeViewColumnGetSortColumnId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_sort_column_id _obj'
touchManagedPtr _obj
return result
-- method TreeViewColumn::get_sort_indicator
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_sort_indicator" gtk_tree_view_column_get_sort_indicator ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO CInt
treeViewColumnGetSortIndicator ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Bool
treeViewColumnGetSortIndicator _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_sort_indicator _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TreeViewColumn::get_sort_order
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "SortType"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_sort_order" gtk_tree_view_column_get_sort_order ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO CUInt
treeViewColumnGetSortOrder ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m SortType
treeViewColumnGetSortOrder _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_sort_order _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method TreeViewColumn::get_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_spacing" gtk_tree_view_column_get_spacing ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO Int32
treeViewColumnGetSpacing ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Int32
treeViewColumnGetSpacing _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_spacing _obj'
touchManagedPtr _obj
return result
-- method TreeViewColumn::get_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_title" gtk_tree_view_column_get_title ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO CString
treeViewColumnGetTitle ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m T.Text
treeViewColumnGetTitle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_title _obj'
checkUnexpectedReturnNULL "gtk_tree_view_column_get_title" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method TreeViewColumn::get_tree_view
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_tree_view" gtk_tree_view_column_get_tree_view ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO (Ptr Widget)
treeViewColumnGetTreeView ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Widget
treeViewColumnGetTreeView _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_tree_view _obj'
checkUnexpectedReturnNULL "gtk_tree_view_column_get_tree_view" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method TreeViewColumn::get_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_visible" gtk_tree_view_column_get_visible ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO CInt
treeViewColumnGetVisible ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Bool
treeViewColumnGetVisible _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_visible _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method TreeViewColumn::get_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gtk" "Widget"
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_widget" gtk_tree_view_column_get_widget ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO (Ptr Widget)
treeViewColumnGetWidget ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Widget
treeViewColumnGetWidget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_widget _obj'
checkUnexpectedReturnNULL "gtk_tree_view_column_get_widget" result
result' <- (newObject Widget) result
touchManagedPtr _obj
return result'
-- method TreeViewColumn::get_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_width" gtk_tree_view_column_get_width ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO Int32
treeViewColumnGetWidth ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Int32
treeViewColumnGetWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_width _obj'
touchManagedPtr _obj
return result
-- method TreeViewColumn::get_x_offset
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_get_x_offset" gtk_tree_view_column_get_x_offset ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO Int32
treeViewColumnGetXOffset ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m Int32
treeViewColumnGetXOffset _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_tree_view_column_get_x_offset _obj'
touchManagedPtr _obj
return result
-- method TreeViewColumn::pack_end
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_pack_end" gtk_tree_view_column_pack_end ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer"
CInt -> -- expand : TBasicType TBoolean
IO ()
treeViewColumnPackEnd ::
(MonadIO m, TreeViewColumnK a, CellRendererK b) =>
a -> -- _obj
b -> -- cell
Bool -> -- expand
m ()
treeViewColumnPackEnd _obj cell expand = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell' = unsafeManagedPtrCastPtr cell
let expand' = (fromIntegral . fromEnum) expand
gtk_tree_view_column_pack_end _obj' cell' expand'
touchManagedPtr _obj
touchManagedPtr cell
return ()
-- method TreeViewColumn::pack_start
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_pack_start" gtk_tree_view_column_pack_start ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer"
CInt -> -- expand : TBasicType TBoolean
IO ()
treeViewColumnPackStart ::
(MonadIO m, TreeViewColumnK a, CellRendererK b) =>
a -> -- _obj
b -> -- cell
Bool -> -- expand
m ()
treeViewColumnPackStart _obj cell expand = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell' = unsafeManagedPtrCastPtr cell
let expand' = (fromIntegral . fromEnum) expand
gtk_tree_view_column_pack_start _obj' cell' expand'
touchManagedPtr _obj
touchManagedPtr cell
return ()
-- method TreeViewColumn::queue_resize
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_queue_resize" gtk_tree_view_column_queue_resize ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
IO ()
treeViewColumnQueueResize ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
m ()
treeViewColumnQueueResize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_view_column_queue_resize _obj'
touchManagedPtr _obj
return ()
-- method TreeViewColumn::set_alignment
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_alignment" gtk_tree_view_column_set_alignment ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
CFloat -> -- xalign : TBasicType TFloat
IO ()
treeViewColumnSetAlignment ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
Float -> -- xalign
m ()
treeViewColumnSetAlignment _obj xalign = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let xalign' = realToFrac xalign
gtk_tree_view_column_set_alignment _obj' xalign'
touchManagedPtr _obj
return ()
-- method TreeViewColumn::set_cell_data_func
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeCellDataFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "func_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Gtk" "TreeCellDataFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_cell_data_func" gtk_tree_view_column_set_cell_data_func ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
Ptr CellRenderer -> -- cell_renderer : TInterface "Gtk" "CellRenderer"
FunPtr TreeCellDataFuncC -> -- func : TInterface "Gtk" "TreeCellDataFunc"
Ptr () -> -- func_data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify"
IO ()
treeViewColumnSetCellDataFunc ::
(MonadIO m, TreeViewColumnK a, CellRendererK b) =>
a -> -- _obj
b -> -- cell_renderer
Maybe (TreeCellDataFunc) -> -- func
m ()
treeViewColumnSetCellDataFunc _obj cell_renderer func = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cell_renderer' = unsafeManagedPtrCastPtr cell_renderer
maybeFunc <- case func of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jFunc -> do
jFunc' <- mkTreeCellDataFunc (treeCellDataFuncWrapper Nothing jFunc)
return jFunc'
let func_data = castFunPtrToPtr maybeFunc
let destroy = safeFreeFunPtrPtr
gtk_tree_view_column_set_cell_data_func _obj' cell_renderer' maybeFunc func_data destroy
touchManagedPtr _obj
touchManagedPtr cell_renderer
return ()
-- method TreeViewColumn::set_clickable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clickable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clickable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_clickable" gtk_tree_view_column_set_clickable ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
CInt -> -- clickable : TBasicType TBoolean
IO ()
treeViewColumnSetClickable ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
Bool -> -- clickable
m ()
treeViewColumnSetClickable _obj clickable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let clickable' = (fromIntegral . fromEnum) clickable
gtk_tree_view_column_set_clickable _obj' clickable'
touchManagedPtr _obj
return ()
-- method TreeViewColumn::set_expand
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_expand" gtk_tree_view_column_set_expand ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
CInt -> -- expand : TBasicType TBoolean
IO ()
treeViewColumnSetExpand ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
Bool -> -- expand
m ()
treeViewColumnSetExpand _obj expand = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let expand' = (fromIntegral . fromEnum) expand
gtk_tree_view_column_set_expand _obj' expand'
touchManagedPtr _obj
return ()
-- method TreeViewColumn::set_fixed_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fixed_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fixed_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_fixed_width" gtk_tree_view_column_set_fixed_width ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
Int32 -> -- fixed_width : TBasicType TInt32
IO ()
treeViewColumnSetFixedWidth ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
Int32 -> -- fixed_width
m ()
treeViewColumnSetFixedWidth _obj fixed_width = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_view_column_set_fixed_width _obj' fixed_width
touchManagedPtr _obj
return ()
-- method TreeViewColumn::set_max_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_max_width" gtk_tree_view_column_set_max_width ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
Int32 -> -- max_width : TBasicType TInt32
IO ()
treeViewColumnSetMaxWidth ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
Int32 -> -- max_width
m ()
treeViewColumnSetMaxWidth _obj max_width = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_view_column_set_max_width _obj' max_width
touchManagedPtr _obj
return ()
-- method TreeViewColumn::set_min_width
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min_width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_min_width" gtk_tree_view_column_set_min_width ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
Int32 -> -- min_width : TBasicType TInt32
IO ()
treeViewColumnSetMinWidth ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
Int32 -> -- min_width
m ()
treeViewColumnSetMinWidth _obj min_width = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_view_column_set_min_width _obj' min_width
touchManagedPtr _obj
return ()
-- method TreeViewColumn::set_reorderable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_reorderable" gtk_tree_view_column_set_reorderable ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
CInt -> -- reorderable : TBasicType TBoolean
IO ()
treeViewColumnSetReorderable ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
Bool -> -- reorderable
m ()
treeViewColumnSetReorderable _obj reorderable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let reorderable' = (fromIntegral . fromEnum) reorderable
gtk_tree_view_column_set_reorderable _obj' reorderable'
touchManagedPtr _obj
return ()
-- method TreeViewColumn::set_resizable
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resizable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resizable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_resizable" gtk_tree_view_column_set_resizable ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
CInt -> -- resizable : TBasicType TBoolean
IO ()
treeViewColumnSetResizable ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
Bool -> -- resizable
m ()
treeViewColumnSetResizable _obj resizable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let resizable' = (fromIntegral . fromEnum) resizable
gtk_tree_view_column_set_resizable _obj' resizable'
touchManagedPtr _obj
return ()
-- method TreeViewColumn::set_sizing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "TreeViewColumnSizing", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gtk" "TreeViewColumnSizing", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_sizing" gtk_tree_view_column_set_sizing ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
CUInt -> -- type : TInterface "Gtk" "TreeViewColumnSizing"
IO ()
treeViewColumnSetSizing ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
TreeViewColumnSizing -> -- type
m ()
treeViewColumnSetSizing _obj type_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let type_' = (fromIntegral . fromEnum) type_
gtk_tree_view_column_set_sizing _obj' type_'
touchManagedPtr _obj
return ()
-- method TreeViewColumn::set_sort_column_id
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_column_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_sort_column_id" gtk_tree_view_column_set_sort_column_id ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
Int32 -> -- sort_column_id : TBasicType TInt32
IO ()
treeViewColumnSetSortColumnId ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
Int32 -> -- sort_column_id
m ()
treeViewColumnSetSortColumnId _obj sort_column_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_view_column_set_sort_column_id _obj' sort_column_id
touchManagedPtr _obj
return ()
-- method TreeViewColumn::set_sort_indicator
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_sort_indicator" gtk_tree_view_column_set_sort_indicator ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
CInt -> -- setting : TBasicType TBoolean
IO ()
treeViewColumnSetSortIndicator ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
Bool -> -- setting
m ()
treeViewColumnSetSortIndicator _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_tree_view_column_set_sort_indicator _obj' setting'
touchManagedPtr _obj
return ()
-- method TreeViewColumn::set_sort_order
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "order", argType = TInterface "Gtk" "SortType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "order", argType = TInterface "Gtk" "SortType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_sort_order" gtk_tree_view_column_set_sort_order ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
CUInt -> -- order : TInterface "Gtk" "SortType"
IO ()
treeViewColumnSetSortOrder ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
SortType -> -- order
m ()
treeViewColumnSetSortOrder _obj order = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let order' = (fromIntegral . fromEnum) order
gtk_tree_view_column_set_sort_order _obj' order'
touchManagedPtr _obj
return ()
-- method TreeViewColumn::set_spacing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spacing", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_spacing" gtk_tree_view_column_set_spacing ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
Int32 -> -- spacing : TBasicType TInt32
IO ()
treeViewColumnSetSpacing ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
Int32 -> -- spacing
m ()
treeViewColumnSetSpacing _obj spacing = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_tree_view_column_set_spacing _obj' spacing
touchManagedPtr _obj
return ()
-- method TreeViewColumn::set_title
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_title" gtk_tree_view_column_set_title ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
CString -> -- title : TBasicType TUTF8
IO ()
treeViewColumnSetTitle ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
T.Text -> -- title
m ()
treeViewColumnSetTitle _obj title = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
title' <- textToCString title
gtk_tree_view_column_set_title _obj' title'
touchManagedPtr _obj
freeMem title'
return ()
-- method TreeViewColumn::set_visible
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_visible" gtk_tree_view_column_set_visible ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
CInt -> -- visible : TBasicType TBoolean
IO ()
treeViewColumnSetVisible ::
(MonadIO m, TreeViewColumnK a) =>
a -> -- _obj
Bool -> -- visible
m ()
treeViewColumnSetVisible _obj visible = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let visible' = (fromIntegral . fromEnum) visible
gtk_tree_view_column_set_visible _obj' visible'
touchManagedPtr _obj
return ()
-- method TreeViewColumn::set_widget
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "gtk_tree_view_column_set_widget" gtk_tree_view_column_set_widget ::
Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn"
Ptr Widget -> -- widget : TInterface "Gtk" "Widget"
IO ()
treeViewColumnSetWidget ::
(MonadIO m, TreeViewColumnK a, WidgetK b) =>
a -> -- _obj
Maybe (b) -> -- widget
m ()
treeViewColumnSetWidget _obj widget = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeWidget <- case widget of
Nothing -> return nullPtr
Just jWidget -> do
let jWidget' = unsafeManagedPtrCastPtr jWidget
return jWidget'
gtk_tree_view_column_set_widget _obj' maybeWidget
touchManagedPtr _obj
whenJust widget touchManagedPtr
return ()