method update_data l =
      store#clear ();
      let f d =
        let row = store#prepend () in
        self#insert ~row d
      in
      List.iter f (List.rev l)