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; trueelse false
    );
  !res