method content =
match store#get_iter_first with
None -> []
| Some it ->
let rec f acc it =
let data = store#get ~row: it ~column: col_data in
match store#iter_next it with
false -> data :: acc
| true -> f (data::acc) it
in
List.rev (f [] it)