 --          
 --  Created: 9 May 2001
 --
---  Version $Revision: 1.3 $ from $Date: 2002/07/08 09:15:09 $
+--  Version $Revision: 1.4 $ from $Date: 2002/07/17 15:59:19 $
 --
 --  Copyright (c) 2001 Axel Simon
 --

  TreeViewColumnClass,
  castToTreeViewColumn,
  treeViewColumnNew,
  treeViewColumnPackStart,
  treeViewColumnPackEnd,
  treeViewColumnClear,
  treeViewColumnGetCellRenderers,
  treeViewColumnAddAttribute,
  treeViewColumnSetSpacing,
  treeViewColumnGetSpacing,
  treeViewColumnSetVisible,

treeViewColumnNew  = makeNewObject mkTreeViewColumn 
  {#call tree_view_column_new#}

-- @method treeViewColumnNewWithAttributes@ Returns a new TreeViewColumn with
-- title @ref arg title@, cell renderer @ref arg cr@, and attributes
-- @ref arg attribs@.
--
treeViewColumnNewWithAttributes :: CellRendererClass cr => String -> cr -> 
				   [(String, Int)] -> IO TreeViewColumn
treeViewColumnNewWithAttributes title cr attribs =
    do
    tvc <- treeViewColumnNew
    treeViewColumnSetTitle tvc title
    treeViewColumnPackStart tvc  cr True
    treeViewColumnAddAttributes tvc cr attribs
    return tvc

-- @method treeViewColumnPackStart@ Add a cell renderer at the beginning of
-- a column.
--
