 treeViewInsertColumn tv tvc pos = liftM fromIntegral $ 
   {#call tree_view_insert_column#} (toTreeView tv) tvc (fromIntegral pos)
 
+
+-- @method treeViewInsertColumnWithAttributes@ Inserts new column into the
+-- TreeView @ref arg tv@ at position @ref arg pos@ with title
+-- @ref argtitle@, cell renderer @ref arg cr@ and attributes
+-- @ref arg attribs@. Specify -1 for @ref arg pos@ to insert the column at
+-- the end.
+--
+treeViewInsertColumnWithAttributes :: (TreeViewClass tv, CellRendererClass cr)
+   => tv -> Int -> String -> cr -> [(String,Int)] -> IO ()
+treeViewInsertColumnWithAttributes tv pos title cr attribs = 
+    do
+    column <- treeViewColumnNew
+    treeViewColumnSetTitle column title
+    treeViewColumnPackStart column cr True
+    treeViewColumnAddAttributes column cr attribs
+    treeViewInsertColumn tv column pos
+    return ()
 
 -- @method treeViewGetColumn@ Retrieve the @ref arg pos@ th columns of
 -- TreeView. If the index is out of range Nothing is returned.

{#import Hierarchy#}
{#import Signal#}
{#import TreeModel#}

{# context lib="gtk" prefix="gtk" #}


  treeViewAppendColumn,
  treeViewRemoveColumn,
  treeViewInsertColumn,
  treeViewInsertColumnWithAttributes,
  treeViewGetColumn,
  treeViewScrollToCell,
  treeViewExpandAll,
