method update_display = fun row ->
    let s = extract (self#get ~row:row ~column:c_caml) in
      self#set ~row:row ~column:c_string s