+
+sub row_inserted
+{
+ my ($list, $path, $iter, $tree) = @_;
+# print $list->get_string_from_iter, "\n";
+ $tree->scroll_to_cell($path, undef, 0, 0, 0);
+}
+
+sub row_activated
+{
+ my ($tree, $path, $col) = @_;
+ print "row activated\n";
+ $tree->scroll_to_cell($path, undef, 0, 0, 0);
+}
+