let find_iter_above store it =
let p = store#get_path it in
let res = ref None in
store#foreach
(fun path it ->
let rr = store#get_row_reference path in
store#iter_next it;
if store#get_path it = p then (res := Some rr; true) else false
);
!res