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)