/*********************************************************************** * * 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 ); }