# 
# patch "glib/ocaml-misc.c"
#  from [44a042feff4c65e0bb261283254171cb5692b205]
#    to [8ff2b606409b030fcdb412cbd0815c2796b24d0b]
# 
# patch "glib/viz_gmisc.ml"
#  from [c5db1d58e138a0daf67bfb1fdeeca789fcac0c28]
#    to [25603720726699c4e8ea48961f4676f5b5f9761e]
# 
========================================================================
--- glib/ocaml-misc.c	44a042feff4c65e0bb261283254171cb5692b205
+++ glib/ocaml-misc.c	8ff2b606409b030fcdb412cbd0815c2796b24d0b
@@ -1,9 +1,10 @@
 #include <gtk/gtk.h>
 
 #include <caml/alloc.h>
 
 #include "wrappers.h"
 #include "ml_glib.h"
+#include "ml_gobject.h"
 #include "ml_gtk.h"
 
 
@@ -19,3 +20,14 @@
 {
   return Val_GtkWidget_sink (gtk_invisible_new ());
 }
+
+
+#define GtkTreeView_val(val) check_cast(GTK_TREE_VIEW,val)
+#define GtkTreePath_val(val) ((GtkTreePath*)Pointer_val(val))
+CAMLprim value
+_ml_gtk_tree_view_expand_to_path (value view, value path)
+{
+  gtk_tree_view_expand_to_path (GtkTreeView_val (view),
+				GtkTreePath_val (path));
+  return Val_unit;
+}
========================================================================
--- glib/viz_gmisc.ml	c5db1d58e138a0daf67bfb1fdeeca789fcac0c28
+++ glib/viz_gmisc.ml	25603720726699c4e8ea48961f4676f5b5f9761e
@@ -1,4 +1,7 @@
 (* not present in lablgtk 2.4.0 *)
 external get_home_dir : unit -> string = "_ml_g_get_home_dir"
 
 external invisible_new : unit -> [Gtk.widget|`invisible] Gtk.obj = "_ml_gtk_invisible_new"
+
+external tree_view_expand_to_path :
+  Gtk.tree_view Gtk.obj -> Gtk.tree_path -> unit = "_ml_gtk_tree_view_expand_to_path"