method build_item_list () = let rec build rr = let it = rr#iter in copy_item (store#get ~row: it ~column: col_data) in List.map build (self#get_children None)