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