method set_data = fun c ~row ?color () ->
begin match color with
| None -> ()
| Some color -> self#set ~row ~column:color_c color;
end;
self#set ~row ~column:string_c (self#_display_string c);
self#set ~row ~column:caml_c c