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