ulong set_title (WPDrivesFolder WR *drv_folder, 
                 char *title, char *doc_name = NULL)
{
  var *wp_folder = drv_folder->wp_folder;     

  strncpy (wp_folder->wp_container.title, title, array_size (wp_folder->wp_container.title));

  if (doc_name) 
  {
    strncpy (wp_folder->wp_container.doc_name, doc_name, array_size (wp_folder->wp_container.doc_name));
  } 
  else 
  {
    strncpy (wp_folder->wp_container.doc_name, "", array_size (wp_folder->wp_container.doc_name));
  }

  return 0;
}
