method set_data = fun (data : 'a) ~row ->
    self#set ~row ~column:c_caml data;
    self#update_display row