 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.
 --

  withCString attr $ \cstr ->  {#call unsafe tree_view_column_add_attribute#} 
    (toTreeViewColumn tvc) (toCellRenderer cr) cstr (fromIntegral col)


-- @method treeViewColumnSetSpacing@ Set the number of pixels between two
-- cell renderers.

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