/***********************************************************************
*
* FUNCTION: ThumbnailViewNextCategory
*
* DESCRIPTION: This routine display the next category, if the last
* catagory isn't being displayed
*
* PARAMETERS: nothing
*
* RETURNED: nothing
*
* The following global variables are modified:
* p.category
* d.categoryName
*
***********************************************************************/
void ThumbnailViewNextCategory(void) {
UInt16 category = CategoryGetNext(d.dbR, p.category);
if (category != p.category) {
FormPtr frm = FrmGetActiveForm();
ControlPtr ctl = GetObjectPointer(frm, CategoryPop);
ChangeCategory(category);
/* Set the label of the category trigger. */
CategoryGetName(d.dbR, p.category, d.categoryName);
CategorySetTriggerLabel(ctl, d.categoryName);
/* Display the new category. */
SetTopVisibleRecord(0);
ThumbnailViewLoadGadgets(frm);
}
}
UInt16 GetNextCategory(UInt16 currentCategory)
{
return CategoryGetNext( plkrDocList, currentCategory );
}
