method father_data row =
      match store#iter_parent row with
        None -> None
      |        Some it ->
          Some (store#get ~row: it ~column: datacol)