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

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

	Handling - Popup

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

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

#include "handling.h"


/* PopUp-Men� abarbeiten */
BOOLEAN hdle_popup(OBJECT *tree, WORD obj, CHAR **entries,
					WORD nmb, WORD *defentry)
{
	WORD	popret = 0,			/* PopUp-Returnwert		*/
			l_x, l_y;			/* x- und y-Position	*/
			
	/* Position des dazugeh”rigen Objekts */
	objc_offset(tree, obj, &l_x, &l_y);

	/* PopUp durchf�hren */
	popret = GPopUp(entries, nmb, *defentry, l_x, l_y, IBM);

	/* Fehlermeldung */
	if(popret == -2)
		return(FALSE);

	/* Eintrag angeklickt? */
	if(popret >= 0)
	{
		/* Eintrag merken */
		*defentry = popret;

		/* passenden Text setzen */
		GSetText(MakeObj(tree, obj), entries[popret]);

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

	return(TRUE);
}