ULONG EXPENTRY wps::setTitle (DRVFolder WR *drvFolder, 
                              CHAR *title, CHAR *docName = NULL)
{
  WPFolder *wpFolder = drvFolder->wpFolder;

  strncpy (wpFolder->wpContainer.title, title, array_size (wpFolder->wpContainer.title));

  if (docName) 
  {
    strncpy (wpFolder->wpContainer.docName, docName, array_size (wpFolder->wpContainer.docName));
  } 
  else 
  {
    strncpy (wpFolder->wpContainer.docName, "", array_size (wpFolder->wpContainer.docName));
  }

  return 0;
}
