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)