   withCString attr $ \cstr ->  {#call unsafe tree_view_column_add_attribute#} 
     (toTreeViewColumn tvc) (toCellRenderer cr) cstr (fromIntegral col)
 
+-- @method treeViewColumnAddAttributes@ Insert attributes @ref arg attribs@
+-- to change the behaviour of column @ref arg tvc@'s cell renderer
+-- @ref arg cr@.
+--
+treeViewColumnAddAttributes :: 
+  (TreeViewColumnClass tvc, CellRendererClass cr) => 
+  tvc -> cr -> [(String,Int)] -> IO ()
+treeViewColumnAddAttributes tvc cr attribs = 
+    mapM_ (\ (attr, col) -> treeViewColumnAddAttribute tvc cr attr col) attribs
+
+-- @method treeViewColumnSetAttributes@ Set the attributes of
+-- the cell renderer @ref arg cr@ in the tree column @ref arg tvc@
+-- be  @red arg attribs@.
+-- The attributes are given as a list of attribute/column pairs.
+-- All existing attributes are removed, and replaced with the new attributes.
+--
+treeViewColumnSetAttributes :: 
+    (TreeViewColumnClass tvc, CellRendererClass cr)  =>
+    tvc -> cr -> [(String, Int)] -> IO ()
+treeViewColumnSetAttributes tvc cr attribs =
+    do
+    treeViewColumnClearAttributes tvc cr
+    treeViewColumnAddAttributes tvc cr attribs
+
+-- @method treeViewColumnClearAttributes@ Clears all existing attributes
+-- of the column @ref arg tvc@.
+--
+treeViewColumnClearAttributes :: 
+    (TreeViewColumnClass tvc, CellRendererClass cr) =>
+    tvc -> cr -> IO ()
+treeViewColumnClearAttributes tvc cr =
+  {#call tree_view_column_clear_attributes#} (toTreeViewColumn tvc)
+    (toCellRenderer cr)
+
 
 -- @method treeViewColumnSetSpacing@ Set the number of pixels between two
 -- cell renderers.

treeViewColumnNew  = makeNewObject mkTreeViewColumn 
  {#call tree_view_column_new#}

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

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