/*-----------------------------------------------------------------------

	Wega 1.00 - Demonstrationsprogramm   (c) 1991 by D. Rabich
	==================================

	Handling - Popup

-----------------------------------------------------------------------*/

/* Wegabibliothek */
#include <wega.h>

#include "handling.h"


/* Cycle-Buttons abarbeiten */
VOID hdle_cycle(OBJECT *tree, WORD obj, WORD popup, CHAR **entries,
				WORD nmb, WORD *para, BOOLEAN doppel)
{
	if(doppel)
	{
		/* Status wechseln */
		GChgState(MakeObj(tree, obj), SELECTED, MODE_CHANGE);

		/* neu ausgeben */
		GObjcDraw(tree, obj);

		{
			WORD	dummy;

			evnt_button(1, 0x1, 0, &dummy, &dummy, &dummy, &dummy);
		}
	}
	else
	{
		if(tree[obj].ob_state & SELECTED)
		{
			if(*para == 0)
				*para = nmb - 1;
			else
				(*para)--;
		}
		else
		{
			(*para)++;
			if(*para >= nmb)
				(*para) = 0;
		}

		/* passenden Text setzen */
		GSetText(MakeObj(tree, popup),
					entries[*para]);

		/* Objekt neu ausgeben */
		GObjcDraw(tree, popup);

		/* etwas warten... */
		evnt_timer(GQDelay(), 0);
	}
}