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