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