method update_display = fun iter -> let vtable = self#get_data ~row:iter in self#set ~row:iter ~column:c_name (vtable.SQL_db.vt_name); self#set ~row:iter ~column:c_descr (SQL_db.string_of_vtable vtable)