let find_first_child store it =
let p = store#get_path it in
let res = ref None in
store#foreach
(fun _ it ->
let parent = store#iter_parent it in
match parent with
None -> false
| Some itp ->
if store#get_path itp = p then (res := Some it; true) else false
);
!res