# 
# patch "view.ml"
#  from [64f45cef1cc347cb46b042b27835439fa0be8842]
#    to [ea235e3223af6754ceb06f9b58b1fd9f3ef988df]
# 
========================================================================
--- view.ml	64f45cef1cc347cb46b042b27835439fa0be8842
+++ view.ml	ea235e3223af6754ceb06f9b58b1fd9f3ef988df
@@ -459,7 +459,17 @@
 	  loop (depth + 1) (Some child)
 	done
       end in
-    loop 0 None
+    loop 0 None ;
+    s.store#foreach (fun path row ->
+      let v = s.store#get ~row ~column:s.in_view_column in
+      if v 
+      then 
+	Viz_gmisc.tree_view_expand_to_path 
+	  (Gobject.try_cast 
+	     s.view#as_widget
+	     s.view#misc#get_type)
+	  path ;
+      false)
 
 
   let scroll s =