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)